
Canarias, Ceuta 
y Melilla 335 ptas 


Simuladores N-»» 

DE VUELO: ¿ 

•COMPARATIVO?* M*' 
MONSTRUO! W 


El INCREIBLE MUNDO 
DE BLOQUES. ¿ES UN 
PROGRAMA O ERES TU?, 


El no va mas 

DE LOS LENGUAJES, 9 
ESCRITO POR 1 
NOSOTROS PARA TI. |9 

TE PRESENTAMOS 4.. .f| 

Forth . ™ 

• * 

El fascinante 

JUEGO DE LAMIDA 







Sound on Sound .-. 1C 

La cinta virgen para ordenador !•_* y V CtJ 




















Director Editorial 

José I. Gómez-Centurión 

Director Ejecutivo 

José M. a Díaz 

Redactor Jefe 

Juan José Martínez 

Diseño gráfico 

Fernando Chaumel 
Colaboradores 

Eduardo Ruiz 
Javier Barceló 
David Sopuerto 
Robert Chatwín 
Francisco Pórtalo 
Pedro Sudón 
Miguel Sepúlveda 
Francisco Martín 
Jesús Alonso 
Pedro S. Pérez 
Amalio Gómez 
Secretaria Redacción 
Carmen Santamaría 
Fotografía 
Carlos Candel 
Portada 
M. Barco 
Ilustradores 

J. Igual, J. Pons, F. L. Frontón, 
J. Septien, Pe¡o, J. J. Mora 

Edita 

HOBBY PRESS, S.A. 

Presidente 

María Andrino 

Consejero Delegado 

José I. Gómez-Centurión 

Jefe de Producción 

Carlos Peropadre 

Marketing 

Marta García 

Jefe de Publicidad 

Concha Gutiérrez 

Publicidad Barcelona 

José Galán Cortés 
Tél: (93) 303 10 22/313 71 62 

Secretaria de Dirección 

Marisa Cogorro 

Suscripciones 

M.° Rosa González 
M. a del Mar Calzada 

Redacción, Administración 
y Publicidad 

Ctra. de Irún km 12,400 
(Fuencarral) 28049 Madrid 
Teléfonos: Suscrip.: 734 65 00 
Redacción: 734 70 12 

Dto. Circulación 

Paulino Blanco 

Distribución 

Coedis, S. A. Valencia, 245 
Barcelona 

Imprime 

Gráficas Reunidas 
Avda. Aragón, 56 (MADRID) 

Fotocomposición 

Novocomp, S.A. 

Nicolás Morales, 38-40 

Fotomecánica 

GROF 

Ezequiel Solana, 16 

Depósito Legal: 

M-5836-1986 


Derechos exclusivos 
de la revista 

COMPUTING with 
the AMSTRAD 

Representante para Argentina, Chile, 
Uruguay y Paraguay, Cia. 
Americana de Edicianes, S.R.L. Sud 
América 1.532. Tel.: 21 24 64. 1209 
BUENOS AIRES (Argentino). 

M. H. AMSTRAD no se hace 
necesariamente solidaria de las 
opiniones vertidas por sus 
colaboradores en los artículos 
firmados. Reservados todos los 
derechos. 

Se solicitará control OJD 



Año I • Número 3 • Octubre 1986 

Precio 350 ptas. Canarias, Ceuta y Melilla 335 ptas. 


5 El juego 

de la vida 

Lo que está vivo, ¿tiene leyes?¿Cómo 
evoluciona una forma viviente? Este fascinante 
juego lo muestra de principio a fin. No es el 
comienzo de la genética asistida por 
ordenador, pero se le parece tanto... Además, 
todo en lenguaje máquina. 



Simuladores 
de vuelo 


Hacía falta una cosa así. Alguien tenía que 
probar todos los simuladores de vuelo que 
existen para Amstrad, es decir, los 
«juegos» más espectaculares para 
ordenador, hábil y objetivamente juzgada por 
nuestro equipo de expertos en software. 



El lenguaje Forth es por antonomasia uno 
de los favoritos de los programadores, usado 
a menudo como herramienta de desarrollo. Su 
funcionalidad, junto a su proximidad a la 
máquina trabajando a un nivel 
verdaderamente bajo, le capacitan como un 
verdadero sustitutivo del en ocasiones 
trabajoso y cansino código máquina. 
AMSTRAD ESPECIALnúmero 3 os ofrece un 
intérprete de FORTH, ideal para iniciarse en 
este lenguaje. 




Los ordenadores están aquí. Sus hijos, los 
robots, también, y ya están empezando a 
ejercer una importante influencia en nuestras 
vidas. La Segunda Revolución Informática 
empezó ayer. 



Mundo de éStlGt 
bloques 

Hay cosas que son increíbles, como un 
elefante que vuele, o como este programa, 
dentro de la más pura tradición de la IA, que 
«existe» en un mundo imaginario regido por 
una serie de leyes, las cuales le permiten 
entender castellano normal y ejecutar órdenes 
de gran complejidad. Simplemente, es 
increíble. 
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mpilador 
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Versión completa del ,, 
famoso C-Hisoft para CP/M. 
Capacidades de E/S, ficheros 
aleatorios y modos de acceso 
binario y ASCII. Incluye 
editor ED 80 compatible 


Especial para Z-80. Deja el 
programa fuente en un 
programa directamente 
ejecutable. Incluye ED 80, 
editor compatible con 
„ WORDSTAR. 


^WORDSTAR 

15.000 

r ED 80: Editor Configurable^V ptaS. 
GEN 80: Macros, inclusión en \ 
disco, ensamblador condicional, 
manipulación bit a bit. MON 80: 
Monitor y debugger, puntos Á 
de ruptura y presentación 
\de memoria. 


Implementación total del 
lenguaje MODULA-2 para 
CP/M. Compilador en un 
único paso, listo para ser 
linkado. 


15.000 
atas.. 


POLYPRINT 

Multitipos 


r Transforme su impresora 
en una imprenta. Permite la 
impresión en 8 tipos distintos 
de letras; configurable para 
cualquier impresora. 


19.900 


15.000 

jatos.. 


POLY 
TYPEFACES 
Multitipos 


r Añade a la potencia del 
programa POLYPRINT 8 
juegos adicionales de impresión 
a los ya existentes. 


TORCH 
Tutor de CP/M 


Permite trabajo directo 
sobre disco, bien en 
hexadecimal o ASCII, recupera 
ficheros perdidos o borrados, 
alterar y/o proteger 
directorios, todo oajo 
AMSDOS y CP/M. 


Diseñado específicamente 
para AMSTRAD. Incluye 
THE WAND, creador de menús 
de programas. 


7.900 

ptas.. 


7.900 

ptas. 


Residente en memoria, sin 
interferir en su programa 
principal le ofrece: Calculadora 
(Hex-Dec), Block de notas y 
teléfonos. Calendario, 
Directorios, etc... 


Permite realizar gráficos 
sofisticados en su impresora 
Gráficos de pastel, histogramas 
comparativos, gráficos de líneas. 
Imágenes de 980 PIXELS de 
densidad. 


¿$11.900 
ptas. 


Sencillo sistema de 
MAIL-MERGE. Idóneo para 
producir circulares. Incluye 
editor. Permite la realización 
de etiquetas autoadhesivas.') 


¿$9.900 
ptas. 


11.900 

Asigna a cada disco un 'v Dt3S. 
número de serie y además \.r ’ 

indexa y cataloga los ficheros 
en ese disco. 


>$11.900 
ptas. 


DRAUGHTS 
MAN II 


Módulo de textos, 
preparado para ser 
empleado con nuestro lápiz 
óptico ESP o con las teclas de 
cursor. 


$10.900 
ptas. 


Explore las enormes 
capacidades del procesador 
de textos NEWWORD; guiado 
desde los fundamentos del 
proceso de textos. 


8.900 

ptas.. 


Dos cintas audio con 
instrucciones claras para 
aprendizaje y apoyo al manual 
del tratamiento de textos 
LOSOSCRIPT. 


Nueva versión mejorada y 
compatible con nuestra 
tableta GRAFPAD II: Gran 
capacidad en gráficos. 


6.900 

ptas. 


TYPING 
r CRASH COURSE 
Inicia a teclear 


Curso de iniciación a los 
teclados, recomendado para 
personas no acostumbradas a 
su uso. 


7.000 

ptas. 


Conozca a fondo las 
posibilidades del teclado, 
escribiendo con sus diez dedos 
en lugar de sólo dos. 


3.000 

ptas.. 



6.200 

ptas.yClos 4 |untos 
*23.800 ptas. 


9.900 

ptas.. 


IVA 
no 
incluido 


9.900 

)tas.. 
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Cuando John Horton Con- 
way, famoso matemático de 
la Universidad de Cambridge, 
creó por primera vez en su or¬ 
denador el conocido juego de 
la vida, no podía imaginar el 
revuelo que éste causaría; 
aun después de tanto tiempo, 
sería tremendamente difícil 
evaluar las pérdidas econó¬ 
micas que su juego provocó. 
En todas las grandes empre¬ 
sas de EE.UU., allí donde exis¬ 
tiese un ordenador, miles de 
seres unicelulares nacían y 
morían tras un monitor ver¬ 
de. 

Ahora, años después, AMS- 
TRAD Especial ofrece a todos 
sus lectores la posibilidad de 
recrearse en este universo de 
fantasía, donde la vida y la 
muerte se aúnan en una lucha 
eterna en pos de la simetría. 


* 





causa de sus semejanzas con el nacimiento, 
muerte y alteraciones que experimentan las so¬ 
ciedades de seres vivos, pertenece a la clase 
de los llamados juegos de simulación. 

Todo el proceso del juego encaja con la teo¬ 
ría de autómatas celulares, la cual propone 
la posibilidad de que una máquina provista de 
las instrucciones necesarias, puede ser capaz 
de construir una copia de si misma. 

Cada una de estas máquinas sería a su vez 
capaz de construir otras, y estas cuatro se con¬ 
vertirían en ocho, y así sucesivamente. 

Ahora bien, tal proceso conduciría a un nú¬ 
mero infinito de autómatas, lo cual sería in¬ 
sostenible. Para evitar esta proliferación, Con- 
way propuso la aplicación de unas leyes ge¬ 
néticas que regularan los nacimientos, muer¬ 
tes y sucesivas alteraciones. 


EL CICLO DE NACIMIENTO 
Y MUERTE 

Dicho juego debe jugarse teóricamente so¬ 
bre un tablero cuadriculado infinito. Cada una 
de estas casillas puede encontrarse en dos es¬ 
tados, vacío o lleno. Cada uno de estas cua¬ 
drículas tiene asociadas un conjunto finito de 
cuadrículas 'vecinas' que pueden tener influen¬ 
cia sobre su estado. 

La configuración de estados cambia a inter¬ 
valos temporales, en conformidad con unas re¬ 
glas de transición, aplicadas simultánemane- 
te a todas las cuadrículas. 

Conway eligió sus reglas, tras un período de 
experimentación, intentando satisfacer tres 
condiciones: 

1. No debe existir ninguna configuración 
inicial para la que se pueda demostrar fácil¬ 
mente que su población crecerá ilimitadamen¬ 
te. 

2. Deben existir configuraciones iniciales 
que aparentemente crezcan sin límite. 

3. Han de exisitir configuraciones inicia¬ 
les sencillas que sean capaces de crecer y cam¬ 
biar durante períodos de tiempo considera¬ 
bles, antes de finalizar de una de las siguien¬ 
tes formas posibles: 


a) Extinguirse completamente, ya sea por 
superpoblación o por encarecimiento. 

b) Adoptar una configuración estable in¬ 
variable en lo sucesivo. 

c) Entrar en fase oscilatoria, donde se re¬ 
piten sin fin dos o más estados. 


LAS LEYES DE CONWAY 


Las leyes genéticas elegidas por Conway, 
que son sobre las que está basado el progra¬ 
ma que os ofrecemos del 'Juego de la vi¬ 
da', son las siguientes: 

1. Supervivencia. Cada ficha que tenga 
dos o tres fichas vecinas sobrevive y pasa a 
la siguiente generación. 

2. Fallecimiento. Cada ficha que tenga 
cuatro o más vecinas, muere por superpobla¬ 
ción. Las fichas con sólo una o ninguna veci¬ 
nas muere por aislamiento. 

3. Nacimientos. Cada casilla vacía adya¬ 
cente a exactamente tres fichas vecinas, es ca¬ 
silla generatriz. Por lo que deberá colocarse 
allí una ficha. 

Debemos hacer notar que cada ficha posee 
ocho vecinas, es decir, cuatro ortogonalmen¬ 
te y otras cuatro diagonalmente. 

Es importante darse cuenta que todos los na¬ 
cimientos y muertes ocurren simultáneamen¬ 
te, y constituyen en su conjunto una genera¬ 
ción, o como se las suele llamar un 'tic' o 'la¬ 
tido' de la vida de la configuaración inicial. 

Descubriremos, una vez iniciado el juego, 
que la población experimenta constantemen¬ 
te cambios insólitos, bellos e inesperados. En 
ciertos casos, la sociedad termina por extin¬ 
guirse, si bien antes de que esto suceda, de¬ 
berán pasar gran número de generaciones. 

Casi todas las configuraciones iniciales ter¬ 
minan por alcanzar figuras estables (que Con¬ 
way llama naturalezas muertas), incapaces de 
cambio y que quedan oscilando. 

Las formaciones iniciales que no poseen si¬ 
metría, tienden a ir adquiriéndola, y una vez 
que esto sucede ya no puede perderse. 

Una familia formada únicamente por dos fi¬ 
chas, se extinguirán al primer latido. 

Una formación inicial de tres casillas mori¬ 
ría de inmediato a menos que una de ellas ten¬ 
ga un par de vecinas. 

Debemos hacer notar que una cadena dia¬ 
gonal aislada de fichas, por larga que ésta 
sea, termina desapareciendo, ya que en ca¬ 
da latido pierde las dos fichas situadas en sus 
extremos. 

La tercera configuración se transforma en 
un 'BLOQUE' estable en el segundo latido. 

La última de ellas es la más sencilla de las 
llamadas 'FLIP-FLOPS' que son figuras os¬ 
cilantes de período dos. Conway la denomi¬ 
na 'intermitente'. 

Veamos ahora algunas figuras compuestas 
por cuatro fichas conectadas entre sí por mo¬ 
vimientos de torre, denominadas tetróminos: 



El primero de ellos es como hemos visto an¬ 
teriormente, una naturaleza muerta. 

Los tetróminos 2 y 3, alcanzan una configu¬ 
ración estable al segundo latido, dicha confi¬ 
guración estable, se denomina «colmena». 
El último tetrómino se convierte en colmena al 
tercer latido. 

Vamos a ver a continuación algunas de las 
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figuras más interesantes que se pueden pre¬ 
sentar a través de las diferentes fases del jue¬ 
go de la vida. En el primer gráfico podemos 
observar algunas de las formas estables más 
corrientes. Dichas formas son las fases inicia¬ 
les de muchas configuraciones, y no varían a 
lo largo del tiempo, a no ser que otras confi¬ 
guraciones se aproximen a ellas. 



Una de las figuras más interesantes con que 
nos podemos encontrar, es el llamado desli¬ 
zador», formado por cinco casillas, y que po¬ 
demos ver en el gráfico 2. 


La segunda de las opciones con la que nos 
encontramos, es la de entrar directamente a 
la fase de pulsaciones. Lógicamente si utiliza¬ 
mos esta opción cuando no tengamos ningu- 



gráfico n.° 2 

Dicho deslizador, al cabo de dos latidos, se 
desplaza y queda reflejado respecto de una 
recta diagonal. Al cabo de otros dos latidos, 
se vuelve a enderezar, desplazándose una 
cuadrícula digonalmente hacia abajo y hacia 
la derecha de su posición inicial. 

Una vez explicadas las curiosidades más in¬ 
teresantes del juego de la vida, pasaremos 
ahora a ver cómo funciona el programa que 
aparece al final del artículo. 


EL PROGRAMA 

El programa consta de un bloque en Basic 
y otro en código máquina. El primero de ellos 
se encarga de imprimir en pantalla el menú 
de opciones que posee el juego de la vida, así 
como todas las teclas que pueden ser utiliza¬ 
das en cada parte del programa. 

Las tres opciones disponibles, son las siguien¬ 
tes: Creación de pantalla, Pulsaciones y Pan¬ 
talla aleatoria. 

La primera de ellas nos ofrece la posibilidad 
de crear nuestra propia pantalla utilizando las 
teclas de cursor para desplazarnos por la pan¬ 
talla. 

Pulsando la tecla «P» podremos pintar uti¬ 
lizando los cursores y pulsando la tecla «O» 
podremos borrar o desplazarnos por la pan¬ 
talla sin pintar. 

Una vez hayamos finalizado nuestra pan¬ 
talla bastará con pulsar la tecla «COPIA» pa¬ 
ra que empiecen a producirse los latidos. 

Cuando estemos en la fase de pulsaciones, 
tendremos las opciones de parar las pulsacio¬ 
nes, pulsando la tecla «P» o bien retornar el 
menú principal pulsando la tecla «B». 

Cuando nos encontremos en «PAUSA», 
podremos volver a iniciar los latidos pulsan¬ 
do la tecla «E» o bien salvar en disco o cinta 
la pantalla actual, pulsando la tecla «S». 


na pantalla en memoria, no se producirá nin¬ 
gún efecto. Así pues, esta opción servirá cuan¬ 
do estando en la fase de pulsaciones se haya 
vuelto al menú y se desee retornar a las pul¬ 
saciones. 

Por último, tenemos la opción de crear una 
pantalla aleatoria. Eligiendo esta opción, nues¬ 
tro Amstrad creará una pantalla al azar y 
después de esto pasará directamente a la fa¬ 
se de pulsaciones. 

Veamos ahora cuáles son los pasos que rea¬ 
liza el programa en código máquina. 

En primer lugar, se crea un buffer de 1.200 
bytes, sobre el cual se producen todos los cál¬ 
culos para comprobar cuáles son las células 
que sobreviven, nacen o mueren. 

Dentro de ese buffer de trabajo, cada bit 
contiene la información de una casilla, y pue¬ 
de tener dos estados: 1 indica que la célula 
está viva y 0 indicará que dicha célula está 
muerta. 

Así pues, en cada latido se deben compro¬ 
bar cada uno de los bits que componen ese 
buffer de 1.200 bytes, por lo tanto deberemos 
tratar 1.200*8 bits. 

Como hemos dicho anteriormente las reglas 
sobre las que se basa el juego contemplan las 
ocho casillas inmediatamente próximas a la 
que se está estudiando. 

De este modo, cuando deseemos mirar lo 
que ocurriría con un bit en concreto, debere¬ 
mos mirar cada uno de los ocho bits que lo ro¬ 
dean. 

Si por ejemplo deseamos mirar el bit 4 de 
un byte cualquiera dentro del buffer, debere¬ 
mos mirar los siguientes bits de los bytes que 
se indican: 

abe 
d x e 
f g h 

Así pues, teniendo en cuenta que el núme¬ 
ro de bytes que contiene cada fila del buffer 
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es 10 y si cargamos en el registro indexado 
IX la posición de memoria en la cual está el 
bit que intentamos investigar, los bits que de¬ 
beremos chequear serán los siguientes: 


a. bit 3 de (IX-10) 

b. bit 4 de (IX-10) 

c. bit 5 de (IX-10) 


1 REM JUEGO DE LA VIDA 

2 REM ALBERTO SUNER 
JO MEMORY S.3FFF 

20 MODE 1:INK O,13:INK 1,0:INK 2,20 
:INK 3,1:BORDER 13 
30 LQAD M VIDABIN M , tiAOOO 
40 MODE 1 

50 PEN 1:LOCATE 13,llPRINT "JUEGO D 
E LA VIDA" 

60 PEN 2:LOCATE 5,2:PRINT "HENU“:PE 
N 7 

70 LOCATE 5,4:PRINT “1. 

CREACION PANTALLA" 

BO LOCATE 5,5:PRINT "2. 

PULSACIONES" 

90 LOCATE 5,¿SPRINT "3. 

PANTALLA ALEATORIA" 

10O PEN 2:LOCATE 5,B:PRINT "CREACIQ 
N DE PANTALLA" 

110 PEN 3sLOCATE 5,10:PRINT "CURSOR 

ES. MUEVEN PUNTO" 

120 LOCATE 5,11:PRINT "COPIA. 

.. LATIDOS" 

130 LOCATE 5,12:PRINT "P. 

.. PINTAR" 

140 LOCATE 5,13:PRINT "O. 

.. BORRAR" 

150 LOCATE 5,14:PRINT "L. 

.. CARGA PANTALLA" 

160 LOCATE 5,15:PRINT “B. 

.. MENU" 

170 PEN 2:LOCATE 5,17:PRINT “LATIDO 
S":PEN 3 

180 LOCATE 5,19:PRINT "P. 

.. PAUSA" 

190 LOCATE 5,20:PRINT "B. 

.. MENU" 

200 PEN 2:LOCATE 5,22:PRINT "PAUSA" 
:PEN 3 

210 LOCATE 5,24:PRINT "S. 

.. SALVA PANTALLA" 

220 LOCATE 5,25:PRINT "E. 

.. SEGUIR CON LATIDOS" 

230 IF INKEY<641=0 THEN 350 
240 IF INKEY(¿5)“O THEN 390 
250 IF INKEY<571=0 THEN 270 
260 GOTO 230 
270 MODE 2 

280 FOR N-69000 TO 69200 
290 PQKE N,INT<RNDt256) 

300 NEXT 

310 POKE 6A553,O:POKE 6A554.0 

320 GOSUB 430 

330 CALL 6A134 

340 GOTO 40 

350 MODE 2 

360 GOSUB 430 

370 CALL 6AOOO 

3B0 GOTO 40 

390 MODE 2 

400 GOSUB 430 

410 CALL BA134 

420 GOTO 40 

430 LOCATE 30,25:PRINT “LATIDOS-OOO 
00" 

440 RETURN 


d. bit 3 de (IX+0) 

e. bit 5 de (IX+O) 

f. bit 3 de (IX+10) 

g. bit 4 de (IX+10) 

h. bit 5 de (IX+10) 

De esta forma cuando uno de estos bits es¬ 
té puesto a uno, llamamos a una rutina que 
se encarga de incrementar el contador que nos 


indicará finalmente cuántos de esos ocho bits 
están puestos a uno. 

Así pues, una vez revisados cada uno de los 
bits vecinos, tomaremos el valor de dicho con¬ 
tador, y de esta forma se podrá decidir, de 
acuerdo con las reglas indicadas anteriormen¬ 
te, si ese bit debe sobrevivir o morir en caso 
de que esté vivo, o bien si debe nacer en el 
caso de que esté muerto. 


10 REM JUEGO DE LA VIDA 
20 REM PROGRAMA CARGADOR 
30 FOR N=6A000 TO 6A5A3 
40 READ A:SUMA=SUMA+A 
50 POKE N,A 
60 NEXT 

70 IF SUMAO173577 THEN PRINT "ERRO 
R EN DATAS" 

BO DATA 33,0,0,34,83,165,33 
90 DATA 0,144,17,1,144,1,176 
100 DATA 4,54,0,237,176,33,165 
110 DATA 144,34,6,165,62,54,205 
120 DATA 30,187,192,62,36,205,30 
130 DATA 187,40,3,205,5B,165,175 
140 DATA 205,30,1B7,40,3,205,238 
150 DATA 160,62,2,205,30,187,40 
160 DATA 3,205,252,160,62,8,205 
170 DATA 30,187,40,3,205,7,161 
180 DATA 62,1,205,30,187,40,3 
190 DATA 205,29,161,62,27,205,30 
200 DATA 187,40,4,175,50,9,165 
210 DATA 62,34,205,30,187,40,5 
220 DATA 62,1,50,9,165,205,116 
230 DATA 160,62,9,205,30,187,194 
240 DATA 52,161,24,165,42,6,165 
250 DATA 58,8,165,254,0,32,2 
260 DATA 203,198,254,1,32,2,203 
270 DATA 206,254,2,32,2,203,214 
280 DATA 254,3,32,2,203,222,254 
290 DATA 4,32,2,203,230,254,5 
300 DATA 32,2,203,238,254,6,32 
310 DATA 2,203,246,254,7,32,2 
320 DATA 203,254,205,57,164,58,9 
330 DATA 165,167,32,1,201,42,6 
340 DATA 165,58,8,165,254,0,32 
350 DATA 2,203,134,254,1,32,2 
360 DATA 203,142,254,2,32,2,203 
370 DATA 150,254,3,32,2,203,15B 
380 DATA 254,4,32,2,203,166,254 
390 DATA 5,32,2,203,174,254,6 
400 DATA 32,2,203,182,254,7,32 
410 DATA 2,203,190,205,57,164,201 
420 DATA 42,6,165,17,10,0,55 
430 DATA 63,237,82,34,6,165,201 
440 DATA 42,6,165,17,10,0,25 
450 DATA 34,6,165,201,58,8,165 
460 DATA 60,50,8,165,254,8,192 
470 DATA 42,6,165,43,34,6,165 
480 DATA 175,50,8,165,201,58,8 
490 DATA 165,61,50,8,165,254,255 
500 DATA 192,42,6,165,35,34,6 
510 DATA 165,62,7,50,8,165,201 
520 DATA 33,0,149,17,1,149,1 
530 DATA 88,2,54,0,237,176,33 
540 DATA 0,149,221,33,0,144,1 
550 DATA 88,2,221,94,O,22,O 
560 DATA 203,123,40,11,205,62,162 
570 DATA 205,14,164,204,22,164,24 
580 DATA 9,205,62,162,205,9,164 
590 DATA 204,22,164,22,0,203,115 
600 DATA 40,11,205,119,162,205,14 
610 DATA 164,204,25,164,24,9,205 
620 DATA 119,162,205,9,164,204,25 
630 DATA 164,22,0,203,107,40,11 
640 DATA 205,176,162,205,14,164,204 
650 DATA 28,164,24,9,205,176,162 
660 DATA 205,9,164,204,28.164.22 
670 DATA 0,203,99,40,11,205,233 
6B0 DATA 162.205.14.164.204.31,164 
690 DATA 24,9,205,233,162,205,9 
700 DATA 164,204,31,164,22,0,203 
710 DATA 91,40,11,205,34,163,205 
720 DATA 14,164,204,34,164,24,9 
730 DATA 205,34,163,205,9,164,204 
740 DATA 34,164,22,0,203,83,40 
750 DATA 11,205,91,163,205,14,164 
760 DATA 204,37,164,24,9,205,91 


770 DATA 163,205,9,164,204,37,164 
780 DATA 22,0,203,75,40,11,205 
790 DATA 148,163,205,14,164,204,40 
800 DATA 164,24,9,205,148,163,205 
B10 DATA 9,164,204,40,164,22,0 
B20 DATA 203,67,40,11,205,205,163 
830 DATA 205,14,164,204,43,164,24 
840 DATA 9,205,205,163,205,9,164 
B50 DATA 204,43,164,221,35,35,11 
860 DATA 120,177,194,75,161,205,46 
870 DATA 164,205,85,165,62,27,205 
880 DATA 30,1B7,196,10,165,62,54 
890 DATA 205,30,187,202,52,161,201 
900 DATA 221,203,255,70,196,7,164 
910 DATA 221,203,0,118,196,7,164 
920 DATA 221,203,9,70,196,7,164 
930 DATA 221,203,10,126,196,7,164 
940 DATA 221,203,10,118,196,7,164 
950 DATA 221,203,246,118,196,7,164 
960 DATA 221,203,246,126,196,7,164 
970 DATA 221,203,245,70,196,7,164 
980 DATA 201,221,203,0,126,196,7 
990 DATA 164,221,203,0,110,196,7 
iOOO DATA 164,221,203,246,126,196,7 
1010 DATA 164,221,203,246,118,196,7 
1020 DATA 164,221,203,246,110,196,7 
1030 DATA 164,221,203,10,126,196,7 
1040 DATA 164,221,203,10,118,196,7 
1050 DATA 164,221,203,10,110,196,7 
1060 DATA 164,201,221,203,0,118,196 
1070 DATA 7,164,221,203,0,102,196 
1080 DATA 7,164,221,203,246,118,196 
1090 DATA 7,164,221,203,246,110,196 
1100 DATA 7,164,221,203,246,102,196 
1110 DATA 7,164,221,203,10,118,196 
1120 DATA 7,164,221,203,10,110,196 
1130 DATA 7,164,221,203,10,102,196 
1140 DATA 7,164,201,221,203,0,110 
USO DATA 196,7,164,221,203,0,94 
1160 DATA 196,7,164,221,203,246,110 
1170 DATA 196,7,164,221,203,246,102 
1180 DATA 196,7,164,221,203,246,94 
1190 DATA 196,7,164,221,203,10,110 
1200 DATA 196,7,164,221,203,10,102 
1210 DATA 196,7,164,221,203,10,94 
1220 DATA 196,7,164,201,221,203,0 
1230 DATA 102,196,7,164,221,203,0 
1240 DATA 86,196,7,164,221,203,246 
1250 DATA 102,196,7,164,221,203,246 
1260 DATA 94,196,7,164,221,203,246 
1270 DATA B6,196,7,164,221,203,10 
1280 DATA 102,196,7,164,221,203,10 
1290 DATA 94,196,7,164,221,203,10 
t’OO DATA 86,196,7,164,201,221,203 
1310 DATA 0,94,196,7,164,221,203 
1320 DATA 0,78,196,7,164,221,203 
1330 DATA 246,94,196,7,164,221,203 
1340 DATA 246,B6,196,7,164,221,203 
1350 DATA 246,78,196,7,164,221,203 
1360 DATA 10,94,196,7,164,221,203 
1370 DATA 10,86,196,7,164,221,203 
1380 DATA 10,78,196,7,164,201,221 
1390 DATA 203,0,86,196,7,164,221 
1400 DATA 203,0,70,196,7,164,221 
1410 DATA 203,246,86,196,7,164,221 
1420 DATA 203,246,78,196,7,164,221 
1430 DATA 203,246,70,196,7,164,221 
1440 DATA 203,10,86,196,7,164,221 
1450 DATA 203,10,78,196,7,164,221 
1460 DATA 203,10,70,196,7,164,201 
1470 DATA 221,203,0,78,196,7,164 
1480 DATA 221,203,1,126,196,7,164 
1490 DATA 221,203,246,78,196,7,164 
1500 DATA 221,203,246,70,196,7,164 
1510 DATA 221,203,247,126,196,7,164 
1520 DATA 221,203,10,78,196,7,164 
1530 DATA 221,203,10,70,196,7,164 
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1540 DATA 221,203, 11, 12/., 196,7, 164 
1550 DATA 201,201,20,201,122,254,3 
1560 DATA 200,201,122,254,2,200,254 
1570 DATA 3,200,201,203,254,201,203 
15B0 DATA 246,201,203,238,201,203,2 
30 

1590 DATA 201,203,222,201,203,214,2 
01 

1600 DATA 203,206,201,203,198,201,3 

3 

1610 DATA 0,149,17,0,144,1,88 
1620 DATA 2,237,176,33,0,64,17 
1630 DATA 1,64,1,0,64,54,0 
1640 DATA 237,176,205,77,164,205,19 
5 

1650 DATA 164,201,17,0,64,33,0 
1660 DATA 144,6,60,197,237,83,182 
1670 DATA 164,6,10,175,203,126,196 
1680 DATA 104,164,18,175,19,203,118 
1690 DATA 196,184,164,18,175,19,203 
1700 DATA 110,196,184,164,18,175,19 
1710 DATA 203,102,196,184,164,18,17 
5 

1720 DATA 19,203,94,196,184,164,18 
1730 DATA 175,19,203,B6,196,184,164 
1740 DATA 18,175,19,203,78,196,184 
1750 DATA 164,18,175,19,203,70,196 
1760 DATA 184,164,18,19,35,16,189 
1770 DATA 229,42,182,164,1,80,0 
1780 DATA 237,176,33,80,0,25,235 
1790 DATA 225,193,16,164,237,83,182 
1800 DATA 164,201,0,0,203,247,203 
1810 DATA 255,203,239,203,231,203,2 
23 

1820 DATA 201,33,1,1,17,0,64 
1830 DATA 213,235,33,176,191,66,22 
1040 DATA 0,29,25,17,80,0,25 
1850 DATA 16,253,221,225,6,192,24 
1860 DATA 21,124,230,56,254,56,40 
1870 DATA 6,124,19B,8,103,24,8 
1880 DATA 17,80,0,124,238,56,103 
1890 DATA 25,197,229,6,80,221,126 
1900 DATA 0,119,221,35,35,16,247 
1910 DATA 225,193,16,218,201,0,144 
1920 DATA 0,0,62,58,205,30,187 
1930 DATA 192,62,60,205,30,187,194 
1940 DATA 26,165,24,240,6,4,33 
1950 DATA 79,165,17,0,169,205,140 
1960 DATA 188,33,0,149,17,88,2 
1970 DATA 1,0,0,62,2,205,152 
1980 DATA 188,205,143,188,205,146,1 
8B 

1990 DATA 201,6,4,33,79,165,17 
2000 DATA 0,169,205,119,188,33,0 
2010 DATA 144,205,131,1BB,205,122,1 
88 

2020 DATA 201,B6,7? f ¿.8,65,0,0 
2030 DATA 38,38,46,25,205,117,187 
2040 DATA 42,83,165,35,34,83,165 
2050 DATA 55,17,16,39,35,62,47 
2060 DATA 60,237,82,48,251,205,152 
2070 DATA 165,17,232,3,60,237,82 
2080 DATA 48,251,205,152,165,17,100 
2090 DATA 0,60,237,82,48,251,205 
2100 DATA 152,165,17,10,0,60,237 
2110 DATA 82,48,251,205,152,165,133 
2120 DATA 205,152,165,201,205,90,18 
7 

2130 DATA 62,47,32,1,35,25,35 
2140 DATA 201,0,0,0,0,0,0 



no realicen el trabajo duro, M. H. AMS- 
TKAD lo hace por ti. Iodos los listados que incluyon 
este logotipo se encuentran o tu disposición en un cas¬ 
sette mensual, solicítanoslo. 


10 

;JUEGO 

DE LA 

VIDA 

880 


RES 

20 


□RG 

#AOOO 

890 

BITlt 

CP 

30 


LD 

HL, 0 

900 


JR 

40 


LD 

(LATID),HL 

910 


RES 

50 


LD 

HL,#9000 

920 

BIT2: 

CP 

60 


LD 

DE,#9001 

930 


JR 

70 


LD 

BC,1200 

940 


RES 

80 


LD 

(HL),0 

950 

BIT3: 

CP 

90 


LDIR 


960 


JR 

100 


LD 

HL,#90A5 

970 


RES 

110 


LD 

(POSCUR),HL 

980 

BIT4: 

CP 

120 

TECs 

LD 

A, 54 

990 


JR 

130 


CALL 

#BB1E 

ÍOOO 


RES 

140 


RET 

NZ 

1010 

BIT5: 

CP 

150 


LD 

A, 36 

1020 


JR 

160 


CALL 

«BB1E 

1030 


RES 

170 


JR 

Z,TECLO 

1040 

BIT6: 

CP 

180 


CALL 

LOAD 

1050 


JR 

190 

TECLOs 

XQR 

A 

1060 


RES 

200 


CALL 

#BB1E 

1070 

BITS: 

CALL 

210 


JR 

Z,TECL1 

1080 


RET 

220 


CALL 

UP 

1090 

UP: 

LD 

230 

TECLls 

LD 

A,2 

i too 


LD 

240 


CALL 

«BB1E 

1110 


SCF 

250 


JR 

Z,TECL2 

1120 


CCF 

260 


CALL 

DOWN 

1130 


SBC 

270 

TECL2: 

LD 

A,8 

1140 


LD 

280 


CALL 

«BB1E 

1150 


RET 

290 


JR 

Z,TECL3 

1160 

DOWN: 

LD 

300 


CALL 

LEFT 

1170 


LD 

310 

TECL3: 

LD 

A, 1 

1 180 


ADD 

320 


CALL 

#BB1E 

1190 


LD 

330 


JR 

Z,TECL4 

1200 


RET 

340 


CALL 

RIGHT 

1210 

LEFT: 

LD 

350 

TECL4: 

LD 

A, 27 

1220 


INC 

360 


CALL 

•BB1E 

1230 


LD 

370 


JR 

Z,TECL5 

1240 

• 

CP 

380 


XQR 

A 

1250 


RET 

390 


LD 

(PINTI) , A 

1260 

LEF1: 

LD 

400 

TECL5: 

LD 

A, 34 

1270 


DEC 

410 


CALL 

«BB1E 

1280 


LD 

420 


JR 

Z,TECL6 

1290 


XQR 

430 


LD 

A, 1 

1300 


LD 

440 


LD 

(PINTI),A 

1310 


RET 

450 

TECL6: 

CALL 

PINBU 

1320 

RIGHT: 

LD 

460 


LD 

A, 9 

1330 


DEC 

470 


CALL 

• BB1E 

1340 


LD 

480 


JP 

NZ,INIC 

1350 


CP 

490 


JR 

TEC 

1360 


RET 

500 

PINBU: 

LD 

HL,(POSCUR) 

1370 


LD 

510 


LD 

A,(CONBY) 

1380 


INC 

520 


CP 

0 

1390 


LD 

530 


JR 

NZ,BYT 1 

1400 


LD 

540 


SET 

0, (HL) 

1410 


LD 

550 

BYTls 

CP 

1 

1420 


RET 

560 


JR 

NZ , BYT2 

1430 

9 


570 


SET 

1,(HL) 

1440 

INIC: 

LD 

580 

BYT2: 

CP 

2 

1450 

S 


590 


JR 

NZ,BYT3 

1460 


LD 

600 


SET 

2,(HL) 

1470 


LD 

610 

BYT3: 

CP 

3 

1480 


LD 

620 


JR 

NZ,BYT4 

1490 


LDIR 

630 


SET 

3,(HL) 

1500 


LD 

640 

BYT4: 

CP 

4 

1510 


LD 

650 


JR 

NZ,BYT5 

1520 


LD 

660 


SET 

4,(HL) 

1530 

MIRBU: 

LD 

670 

BYT5: 

CP 

5 

1540 


LD 

680 


JR 

NZ,BYT6 

1550 


BIT 

690 


SET 

5,(HL) 

1560 


JR 

700 

BYT6: 

CP 

6 

1570 


CALL 

710 


JR 

NZ,BYT7 

1580 


CALL 

720 


SET 

6,(HL) 

1590 


CALL 

730 

BYT7: 

CP 

7 

1600 


JR 

740 


JR 

NZ,BYT8 

1610 

PASBI1: 

CALL 

750 


SET 

7,(HL) 

1620 


CALL 

760 

BYTB: 

CALL 

PINTU 

1630 


CALL 

770 


LD 

A, (PINTI) 

1640 

PASBI2: 

LD 

780 


AND 

A 

1650 


BIT 

790 


JR 

NZ, BORRA 

1660 


JR 

800 


RET 


1670 


CALL 

810 

BORRA: 

LD 

HL,(POSCUR) 

1680 


CALL 

820 


LD 

A,(CONBY) 

1690 


CALL 

830 


CP 

0 

1700 


JR 

840 


JR 

NZ,BITO 

1710 

PASBI3: 

CALL 

850 


RES 

0, (HL) 

1720 


CALL 

860 

BITO: 

CP 

1 

1730 


CALL 

870 


JR 

NZ,BIT1 

1740 

PASBI4: 

LD 


1, <HL) 

2 

NZ,DIT2 

2, <HL) 

3 

NZ,BIT3 

3, <HL) 

4 

NZ,BIT4 

4, <HL) 

5 

NZ,BIT5 

5, <HL> 

6 

NZ,BXT6 

6, <HL) 

7 

NZ,BITB 

7, <HL> 

PINTU 

HL,(POSCUR) 
DE, 10 


HL, DE 

(POSCUR),HL 


HL,(POSCUR) 
DE, 10 
HL, DE 

(POSCUR),HL 

A,(CONBY) 

A 

(CONBY),A 
8 
NZ 

HL,(POSCUR) 
HL 

(POSCUR),HL 
A 

(CONBY),A 

A,(CONBY) 

A 

(CONBY),A 

255 

NZ 

HL, (POSCUR) 
HL 

(POSCUR),HL 
A,7 

(CONBY),A 


HL,#9500 

DE,«9501 
BC,600 
(HL),0 

HL,#9500 
X X,*9000 
BC, 600 
E,(IX) 
D,0 

7,E 

Z,PASBI1 

MIR7 

MIRBIT 

Z,P0N7 

PASBI2 

MIR7 

MIRBI1 

Z,PQN7 

D, O 

6,E 

Z,PASBI3 

MIR6 

MIRBIT 

Z,PQN6 

PASBI4 

MIR6 

MIRBU 

Z,P0N6 

D,0 
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1750 


BIT 

5,E 

2640 


CALL 

NZ 

INCCON 

3250 

BIT 

2,(IX-10) 

1760 


JR 

Z.PASBI5 

2650 


RET 



3260 

CALL 

NZ,INCCON 

1770 


CALL 

MIR5 

2660 

MIR6: 

BIT 

7 , 

IX+O) 

3270 

BIT 

4,(IX+10) 

1780 


CALL 

MIRBIT 

2670 


CALL 

NZ 

INCCQN 

3280 

CALL 

NZ,INCCQN 

1790 


CALL 

Z,PQN5 

2680 


BIT 

5. 

IX+O) 

3290 

BIT 

3,(IX+10) 

1800 


JR 

PASBI6 

2690 


CALL 

NZ 

INCCQN 

3300 

CALL 

NZ,INCCON 

1810 

PASBI5: 

CALL 

MIR5 

2700 


BIT 

7 , 

IX-10) 

3310 

BIT 

2,(IX+10) 

1820 


CALL 

MIRBI1 

2710 


CALL 

NZ 

INCCQN 

3320 

CALL 

NZ,INCCON 

1830 


CALL 

Z.PDN5 

2720 


BIT 

6, 

IX-10) 

3330 

RET 


1840 

PASBI6: 

LD 

D,0 

2730 


CALL 

NZ 

INCCQN 

3340 MIR2: 

BIT 

3,(IX+O) 

1B50 


BIT 

4,E 

2740 


BIT 

5, 

IX-10) 

3350 

CALL 

NZ,INCCON 

1860 


JR 

Z,PASBI7 

2750 


CALL 

NZ 

INCCQN 

3360 

BIT 

1,(IX+O) 

1B70 


CALL 

MIR4 

2760 


BIT 

7 , 

IX+10) 

3370 

CALL 

NZ,INCCON 

1880 


CALL 

MIRBIT 

2770 


CALL 

NZ 

INCCON 

3380 

BIT 

3,(IX-10) 

1890 


CALL 

Z,P0N4 

2700 


BIT 

6. 

IX+10) 

3390 

CALL 

NZ,INCCON 

1900 


JR 

PASBIB 

2790 


CALL 

NZ 

INCCQN 

3400 

BIT 

2,(IX-10) 

1910 

PASBI7: 

CALL 

MIR4 

2B00 


BIT 

5, 

IX+10) 

3410 

CALL 

NZ,INCCON 

1920 


CALL 

MIRBI1 

2810 


CALL 

NZ 

INCCON 

3420 

BIT 

1, (IX-10) 

1930 


CALL 

Z.PQN4 

2820 


RET 



3430 

CALL 

NZ,INCCON 

1940 

PASBI8: 

LD 

D,0 

2830 

MIR5: 

BIT 

¿p 

IX+O) 

3440 

BIT 

3,(IX+10) 

1950 


BIT 

3,E 

2840 


CALL 

NZ 

INCCQN 

3450 

CALL 

NZ,INCCON 

1960 


JR 

Z,PASBI9 

2850 


BIT 

4, 

IX+O) 

3460 

BIT 

2,(IX+10) 

1970 


CALL 

MIR3 

2860 


CALL 

NZ 

INCCON 

3470 

CALL 

NZ,INCCON 

1980 


CALL 

MIRBIT 

2870 


BIT 

6, 

IX-10) 

3480 

BIT 

1, (IX + 10) 

1990 


CALL 

Z.P0N3 

2880 


CALL 

NZ 

INCCQN 

3490 

CALL 

NZ,INCCON 

2000 


JR 

PASBIO 

2890 


BIT 

5, 

IX-10) 

3500 

RET 


2010 

PASBI9: 

CALL 

MIR3 

2900 


CALL 

NZ 

INCCON 

3510 MIR1: 

BIT 

2,(IX+O) 

2020 


CALL 

MIRBI1 

2910 


BIT 

4, 

IX-10) 

3520 

CALL 

NZ,INCCON 

2030 


CALL 

Z ,P0N3 

2920 


CALL 

NZ 

INCCQN 

3530 

BIT 

0,(IX+O) 

2040 

PASBtOs 

LD 

D,0 

2930 


BIT 

6, 

IX+IO) 

3540 

CALL 

NZ,INCCON 

2050 


BIT 

2,E 









2060 

2070 


JR 

CALL 

Z,PASB11 

MIR2 










20B0 

2090 

2100 

2110 PASBlls 

2120 

2130 

2140 PASB12: 
2150 
2160 
2170 
2180 
2190 
2200 

2210 PASB13: 
2220 
2230 

2240 PASB14: 
2250 
2260 
2270 
2280 
2290 
2300 

2310 PASB15: 

2320 

2330 

2340 PASB16: 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 MIR7: 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2500 
2590 
2600 
2610 
2620 
2630 


CALL MIRBIT 
CALL Z,PQN2 
PASB12 
HIR2 
MIRBI1 
Z ,P0N2 
D,0 
IpE 

Z ,PASB13 
HIR1 
CALL MIRBIT 
CALL Z,PONI 
PASB14 
MIR1 
MIRBI1 
Z,PONI 
D* O 
0,E 

Z,PASB15 
MIRO 
CALL MIRBIT 
CALL Z,PONO 
PASB16 
MIRO 


JR 

CALL 

CALL 

CALL 

LD 

BIT 

JR 

CALL 


JR 
CALL 
CALL 
CALL 
LD 
BIT 
JR 

CALL 


JR 

CALL 



CALL 

CALL 

MIRBI1 

Z,PONO 

2940 

CALL 

NZ 

INCCON 

3550 

BIT 

2,(IX-10) 

INC 

IX 

2950 

BIT 

s. 

IX+IO) 

3560 

CALL 

NZ,INCCON 

INC 

HL 

2960 

CALL 

NZ 

INCCQN 

3570 

BIT 

1.(IX-10) 

DEC 

BC 

2970 

BIT 

4, 

IX+10) 

3580 

CALL 

NZ,INCCON 

LD 

A, B 

2980 

CALL 

NZ 

INCCQN 

3590 

BIT 

0,(IX-10) 

OR 

JP 

C 

NZ,MIRBU 

2990 

3000 MIR4: 

RET 

BIT 

5, 

IX+O) 

3600 

3610 

CALL 

BIT 

NZ,INCCON 
2,(IX+10) 

CALL 

PINTA 

3010 

CALL 

NZ 

INCCON 

3620 

CALL 

NZ,INCCON 

CALL 

INCLAT 

3020 

BIT 

■5, 

IX+O) 

3630 

BIT 

l,(IX+10) 

LD 

A,27 

3030 

CALL 

NZ 

INCCON 

3640 

CALL 

NZ,INCCON 

CALL 

«BB1E 

3040 

BIT 

s. 

IX-10) 

3650 

BIT 

0,(IX+IO) 

CALL 

NZ,ESPER 

3050 

CALL 

NZ 

INCCON 

3660 

CALL 

NZ,INCCON 

LD 

A, 54 

3060 

BIT 

4, 

IX-10) 

"*670 

RET 


CALL 

«BB1E 

3070 

CALL 

NZ 

INCCON 

3680 MIRO: 

BIT 

1,(IX+O) 

JP 

Z,INIC 

3080 

BIT 

3, 

IX-tO) 

3690 

CALL 

NZ,INCCON 

RET 


3090 

CALL 

NZ 

INCCON 

3700 

BIT 

7,(IX+1) 

BIT 

0,(IX-1) 

3100 

BIT 

5, 

IX+10) 

3710 

CALL 

NZ,INCCQN 

CALL 

NZ,INCCQN 

3110 

CALL 

NZ 

INCCON 

3720 

BIT 

1,(IX-10) 

BIT 

6,(IX+O) 

3120 

BIT 

4, 

IX+10) 

3730 

CALL 

NZ,INCCON 

CALL 

NZ,INCCQN 

3130 

CALL 

NZ 

INCCQN 

3740 

BIT 

0,(IX-10) 

BIT 

0 , (IX +9) 

3140 

BIT 

3, 

IX+10) 

3750 

CALL 

NZ,INCCON 

CALL 

NZ,INCCON 

3150 

CALL 

NZ 

INCCON 

3760 

BIT 

7,(IX—9) 

BIT 

CALL 

7,(IX+10) 

NZ,INCCON 

3160 

3170 MIR3: 

RET 

BIT 

4, 

IX+O) 

3770 

3780 

CALL 

BIT 

NZ,INCCON 
1,(IX+10) 

BIT 

6,(IX+10) 

3180 

CALL 

NZ 

INCCON 

3790 

CALL 

NZ,INCCQN 

CALL 

NZ,INCCON 

3190 

BIT 

2, 

IX+O) 

3800 

BIT 

0,(IX+10) 

BIT 

6,(IX-10) 

3200 

CALL 

NZ 

INCCQN 

3810 

CALL 

NZ,INCCON 

CALL 

NZ,INCCON 

3210 

BIT 

4, 

IX-10) 

3820 

BIT 

7,(IX+11) 

BIT 

7,(IX-10) 

3220 

CALL 

NZ 

INCCQN 

3830 

CALL 

NZ,INCCON 

CALL 

NZ,INCCON 

3230 

BIT 

3, 

IX-IO) 

3840 

RET 


BIT 

0,(IX-11) 

3240 

CALL 

NZ 

,INCCQN 

3850 

RET 
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3860 INCCON: 

INC 

D 

3870 

RET 


3880 MIRBI1: 

LD 

A,D 

3890 

CP 

3 

3900 

RET 

Z 

3910 

RET 


3920 MIRBIT: 

LD 

A,D 

3930 

CP 

2 

3940 

RET 

Z 

3950 

CP 

3 

3960 

RET 

Z 

3970 

RET 


3980 P0N7: 

SET 

7, (HL) 

3990 

RET 


4000 P0N6: 

SET 

6, <HL> 

4010 

RET 


4020 PDN5: 

SET 

5, (HL) 

4030 

RET 


4040 P0N4: 

SET 

4,(HL) 

4050 

RET 


4060 P0N3: 

SET 

3,(HL) 

4070 

RET 


4080 P0N2: 

SET 

2, (HL) 

4090 

RET 


4100 PONI: 

SET 

l, (HL) 

4110 

RET 


4120 PONO: 

SET 

0, (HL) 

4130 

RET 


4140 PINTA: 

LD 

HL,#9500 

4150 

LD 

DE,#9000 

4160 

LD 

PC,600 

4170 

LDIR 


4180 PINTU: 

LD 

HL,#4000 

4190 

LD 

DE,##001 

4200 

LD 

BC,#4000 

4210 

LD 

(HL),0 

4220 

LDIR 


4230 

CALL 

MIRA 

4240 

CALL 

IMPRE 

4250 

RET 


4260 MIRA: 

LD 

DE,#4000 

4270 

LD 

HL , #9000 

4280 

LD 

B, 60 

4290 LLL2: 

PUSH 

BC 

4300 

LD 

(POSIN),DE 

4310 

LD 

B, 10 

4320 LLL1: 

XOR 

A 

4330 

BIT 

7,(HL) 

4340 

CALL 

NZ.P0N67 

4350 

LD 

(DE),A 

4360 

XOR 

A 

4370 

INC 

DE 

4380 

BIT 

6,(HL) 

4390 

CALL 

. NZ.P0N67 

4400 

LD 

(DE),A 

4410 

XOR 

A 

4420 

INC 

DE 

4430 

BIT 

5, (HL) 

4440 

CALL 

NZ.P0N67 

4450 

LD 

(DE),A 

4460 

XOR 

A 

4470 

INC 

DE 

4480 

BIT 

4,(HL) 

4490 

CALL NZ,P0N67 

4500 

LD 

< DE),A 

4510 

XOR 

A 

4520 

INC 

DE 

4530 

BIT 

3,<HL) 

4540 

CALL NZ.PQN67 

4550 

LD 

(DE),A 

4560 

XOR 

A 

4570 

INC 

DE 

4580 

BIT 

2,(HL) 

4590 

CALL NZ.PQN67 

4600 

LD 

(DE),A 

4610 

XOR 

A 

4620 

INC 

DE 

4630 

BIT 

1,(HL) 

4640 

CALL NZ.PQN67 

4650 

LD 

(DE),A 

4660 

XOR 

A 

4670 

INC 

DE 

4680 

BIT 

0,(HL) 

4690 

CALL NZ.P0N67 

4700 

LD 

(DE),A 

4710 

INC 

DE 

4720 

INC 

HL 

4730 

DJNZ LLL1 


4740 


PUSH 

HL 

4750 


LD 

HL,(POSIN) 

4760 

4770 


LD 

LDIR 

BC, 80 

4780 


LD 

HL, 80 

4790 


ADD 

HL, DE 

4800 


EX 

DE, HL 

4810 


POP 

HL 

4820 


POP 

BC 

4830 


DJNZ 

LLL2 

4840 

4850 

4860 

5 

LD 

RET 

(POSIN),DE 

4870 

4880 

POSIN: 

i 

DEFS 

2 

4890 

P0N67: 

SET 

6, A 

4900 


SET 

7,A 

4910 


SET 

5,A 

4920 


SET 

4,A 

4930 

4940 


SET 

RET 

3,A 

4950 

;RUTINA 

-IMPRESION 


4960 ;H-PQSICION-VERTICAL—INICIQ-1 
4970 ;L-POSICION—HORIZONTAL-INICIO-1 
4980 ;DE-DIRECCION-GRAFICO 


4990 

i 



5000 

IMPRE: 

LD 

HL,#0101 

5010 


LD 

DE,#4000 

5020 


PUSH 

DE 

5030 


EX 

DE, HL 

5040 


LD 

HL,#C000-8O 

5050 


LD 

B,D 

5060 


LD 

D,0 

5070 


DEC 

E 

5080 


ADD 

HL, DE 

5090 


LD 

DE, 80 

5100 

S_BUC: 

ADD 

HL, DE 

5110 


DJNZ 

S_BUC 

5120 


POP 

IX 

5130 


LD 

B, 200 

5140 


JR 

COLOC 

5150 

P_BUC: 

LD 

A, H 

5160 


AND 

56 

5170 


CP 

56 

5180 


JR 

Z,P_PAS 

5190 


LD 

A, H 

5200 


ADD 

A,8 

5210 


LD 

H, A 

5220 


JR 

COLOC 

5230 

P_PAS: 

LD 

DE,0080 

5240 


LD 

A, H 

5250 


XOR 

56 

5260 


LD 

H, A 

5270 


ADD 

HL, DE 

5280 

COLOC: 

PUSH 

BC 

5290 


PUSH 

HL 

5300 


LD 

B, 80 

5310 

P_BUC1: 

LD 

A,(IX+O) 

5320 


LD 

(HL),A 

5330 


INC 

IX 

5340 


INC 

HL 

5350 


DJNZ 

P_BUC1 

5360 


POP 

HL 

5370 


POP 

BC 

5380 


DJNZ 

P_BUC 

5390 


RET 


5400 


DEFS 

0 

5410 

POSCUR: 

DEFW 

#9000 

5420 

CONBY: 

DEFP 

0 

5430 

PINTI: 

DEFB 

O 

5440 

ESPER: 

LD 

A, 58 

5450 


CALL 

#BB1E 

5460 


RET 

NZ 

5470 


LD 

A, 60 

5480 


CALL 

«BB1E 

5490 


JP 

NZ,SAVE 

5500 


JR 

ESPER 

5510 

SAVE: 

LD 

B, 4 

5520 


LD 

HL,ÑAME 

5530 


LD 

DE,#A900 

5540 


CALL 

#BC8C 

5550 


LD 

HL,#9500 

5560 


LD 

DE, 600 

5570 


LD 

BC, 0 

5580 


LD 

A,2 

5590 


CALL 

#BC9B 

5600 


CALL 

#BC8F 

5610 


CALL 

#BC92 


5620 


RET 


5630 

LOAD: 

LD 

B,4 

5640 


LD 

HL,ÑAME 

5650 


LD 

DE,#A900 

5660 


CALL 

#BC77 

5670 


LD 

HL,#9000 

5680 


CALL 

#BC83 

5690 


CALL 

#BC7A 

5700 


RET 


5710 

ÑAME: 

DEFM 

"VIDA" 

5720 

LATID: 

DEFW 

0 

5730 

INCLAT: 

LD 

H, 38 

5740 


LD 

L, 25 

5750 


CALL 

#BB75 

5760 


LD 

HL,(LATID) 

5770 


INC 

HL 

5780 


LD 

(LATID),HL 

5790 


SCF 


5800 


LD 

DE, ÍOOOO 

5810 


INC 

HL 

5820 


LD 

A, 47 

5830 

DMIL: 

INC 

A 

5840 


SBC 

HL, DE 

5850 


JR 

NC,DMIL 

5860 


CALL 

PRINT 

5870 


LD 

DE,1000 

5880 

MIL: 

INC 

A 

5890 


SBC 

HL, DE 

5900 


JR 

NC,MIL 

5910 


CALL 

PRINT 

5920 


LD 

DE,100 

5930 

CIEN: 

INC 

A 

5940 


SBC 

HL, DE 

5950 


JR 

NC,CIEN 

5960 


CALL 

PRINT 

5970 


LD 

DE, 10 

5980 

DIEZ: 

INC 

A 

5990 


SBC 

HL, DE 

6000 


JR 

NC,DIEZ 

6010 


CALL 

PRINT 

6020 


ADD 

A,L 

6030 


CALL 

PRINT 

6040 


RET 


6050 

PRINT: 

CALL 

#BP5A 

6060 


LD 

A,47 

6070 


JR 

NZ,PAS 

6080 


INC 

HL 

6090 

PAS: 

ADD 

HL , DE 

6100 


INC 

HL 

6110 


RET 



ETIQUETAS 


BIT1 

A0C6 

BIT2 

AOCC 



BIT4 

AOD8 

BIT5 

AODE 



BIT8 

AOEA 

BORRA 

A0B4 



BYT2 

A086 

BYT3 

A08C 



BYT5 

A098 

BYT6 

A09E 



BYT8 

AOAA 

CIEN 

A5BO 



CQNBY 

A508 

DIEZ 

A58B 



DOWN 

AOFC 

ESPER 

A50A 



INCCON 

A407 

INCLAT 

A555 



LATID 

A553 

LEF1 

Allí 



LLL1 

A45C 

LLL2 

A455 



MIL 

A575 

MIRO 

A3CD 



MIR2 

A35B 

MIR3 

A322 



MIR5 

A2B0 

MIR6 

A277 



MIRA 

A44D 

MIRBI1 

A409 



MIRBU 

A14B 

ÑAME 

A54F 



PASB10 

A IDO 

PASB11 

A1E1 



PASB13 

A1FB 

PASB14 

A204 



PASB16 

A21E 

PASBI1 

A15F 



PASBI3 

A179 

PASBI4 

A1Q2 



PASBI6 

A19C 

PASBI7 

A1AD 



PASBI9 

A1C7 

PINBU 

A074 



PINTA 

A42E 

PINTI 

A509 

PINTU 

A439 

PONO 

A42B 

PONI 

A42B 

P0N2 

A425 

P0N3 

A422 

P0N4 

A41F 

P0N5 

A41C 

PON 6 

A419 

P0N67 

A4B8 

P0N7 

A416 

POSCUR 

A506 

POSIN 

A4B6 

PRINT 

A598 

P BUC 

A4DF 

P BUC1 

A4F8 

P PAS 

A4EC 

RIBHT 

AMD 

SAVE 

A51A 

S_BUG 

A4D6 

TEC 

A019 

TECLO 

A029 

TECL1 

A032 

TECL2 

A03C 

TECL3 

A046 

TECL4 

A 050 

TECL5 

A05B 

TECL6 

A067 

UP 

AOEE 
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FORTH: POTENCIA 
Y VELOCIDAD 
EN ALTO NIVEL 



a primera solución que 
se nos ocurre es escribir este tipo de progra¬ 
mas en código máquina. ¡Qué problema! A 
la mayoría de nosotros puede que hacerlo nos 
resulte todavía bastante difícil y penoso ya que 
se trata de un lenguaje en el que hay que «hi¬ 
lar» muy fino, teniendo muy claro qué es lo 
que queremos hacer y conociendo con preci¬ 
sión las instrucciones internas del micro. 

Además, los programas generados son lar¬ 
gos y de difícil seguimiento en caso de error. 
Tiene un gran número de instrucciones elemen¬ 
tales entre las que nos resultará relativamen¬ 
te fácil perdernos. Así que de momento... 

Un camino más fácil y entretenido es utili¬ 
zar alguno de los muchos lenguajes de alto ni¬ 
vel que ya están a disposición de nuevo Alas¬ 
trad. Entre ellos están incluidos el Pascal, el 
Forth y el Logo y, si su ordenador está equi¬ 
pado con una unidad de disco, también po¬ 
drá hacer sus programas en Lisp, Prolog, For¬ 
tran, C y muchos más. 


Cada uno de ellos tiene sus ventajas e in¬ 
convenientes en las diferentes aplicaciones que 
les demos. Mientras un lenguaje puede pare¬ 
cer ideal para una cosa en concreto, a lo me¬ 
jor resulta ser demasiado lento o necesitar de¬ 
masiada memoria en otras ocasiones. 

En pocas palabras. Lo que realmente esta¬ 
mos necesitando es un lenguaje «ideal» que, 
en conjunto, sea suficientemente rápido para 
cualquier requisito, que no «despilfarre» de¬ 
masiada memoria y que, por supuesto, sea re¬ 
lativamente fácil de aprender y utilizar. 


Forth: historia 
de la eficacia 


El lenguaje que, en principio, se adapta me¬ 
jor a estos requisitos es el Forth y, no debe sor¬ 
prenderle que sea el segundo en popularidad 
entre los usuarios de ordenadores caseros. Es 
sencillo, compacto, pensado para aplicacio¬ 
nes de uso general, ideal para emplearlo en 
multitud de problemas y su aprendizaje no en¬ 
traña ninguna dificultad, a pesar de su estruc¬ 
tura y vocabulario poco usuales. 

El Forth nació alrededor de 1969 y en un 
principio se utilizó para controlar los comple¬ 
jos movimientos de los grandes telescopios. 
Desde entonces ha tenido una amplia y varia¬ 
da gama de usuarios para una no menos ex¬ 
tensa galería de aplicaciones. 

Posee alguna de las características avanza¬ 
das de los lenguajes de alto nivel, tales como 
estructuras de bucles y análisis de condiciones 
muy complejas, y genera programas muy uni¬ 




formes que se ejecutan a una gran velocidad, 
aproximadamente 10 veces más deprisa que 
el Basic. A esto hay que añadir aue podemos 
modificar y ampliar el lenguaje dotándolo de 
nuevas palabras «clave» a medida que vayan 
surgiendo a lo largo de cualquier aplicación. 
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Nuestra primera tarea, antes de comenzar 
a desentrañar las maravillas de este nuevo len¬ 
guaje, es, por supuesto, teclear el progra¬ 
ma que nos servirá para ejecutar en el Ams- 
trad las instrucciones que escribamos en 
Forth. 


Un intérprete 
para aprender 


Dese cuenta de algo importante. Este pro¬ 
grama no nos genera realmente una versión 
del Forth, simplemente simula esta opera¬ 
ción. Su misión es convertir cada nueva pala¬ 
bra en un código que responda a un formato 
interno especial que se corresponde con unas 
instrucciones Basic que son las que realmente 
realizan el trabajo. 

Y como a continuación el Amstrad ha de 
interpretar estas sentencias Basic, no se extra¬ 
ñe que en esta ocasión cualquier programa 
creado en Forth se ejecutará bastante lenta¬ 
mente. Pero no se desespere. Por lo demás es¬ 
ta versión nos permite utilizar un Forth bastan¬ 
te parecido al que se usa realmente. A pesar 
de su lentitud, nos permitirá hacer experimen¬ 
tos con este potente lenguaje empleando las 
técnicas sugeridas en este artículo. Cuando su 
aprendizaje haya terminado ya estaremos ca¬ 
pacitados para decidir si Forth es «nuestro» 
lenguaje. De ser así, ya sabe lo que le tocará 
hacer: adquirir una de las versiones comercia¬ 
les disponibles para el Amstrad. 

Al principio puede resultarnos un poco in¬ 
cómodo de utilizar debido principalmente a 
que emplea una notación diferente a la que 
nosotros estamos acostumbrados. En vez de 
escribir instrucciones en la forma que lo hace 
el Basic, todas las sentencias Forth, o «pala¬ 
bras» como de ahora en adelante las cono¬ 
ceremos, necesitan tener sus argumentos —o 
números con los que trabajan— «delante» 
de cada comando y no después como es el ca¬ 
so de la mayor parte de los lenguajes. 


El Forth: 

es un lenguaje basado 
en el concepto de stack 


Por ejemplo, si queremos sumar dos núme¬ 
ros y después imprimir su resultado, lo conse¬ 
guiremos con la siguiente instrucción: 

PRINT3 + 8 

Pero en Forth no se haría así. Tendremos que 
escribir algo parecido a: 

3 8+. 

donde el punto (.) es la «palabra# Forth em¬ 
pleada para visualizar en la pantalla. Esta for¬ 
ma de escribir las instrucciones es lo que se co¬ 
noce como «Notación Polaca Inversa» y le ase¬ 
guramos que no es tan enrevesada como pa¬ 
rece, así aue no se sienta desanimado por es¬ 
ta novedad. 

Sin embargo, no es la única diferencia exis¬ 
tente. El Forth trabaja empleando una parte 
de la memoria llamada «stack» o pila para 
guardar los valores que en un determinado 
momento van a tener los argumentos que va¬ 
yamos a pasar a una «palabra». 


Su funcionamiento es muy sencillo. Imagine 
que está recogiendo platos y «apilándo¬ 
los» uno encima del otro. Es evidente que el 
último plato que hayamos tomado será el que 
coloquemos en la parte superior de la «pila». 
Una vez colocados, necesitamos coger uno. 
iCuál será? 

A menos que sea un malabarista e intente 
demostrarlo sacando uno de los platos de aba¬ 
jo, lo más normal y lógico es que el elegido 
sea precisamente el que está colocado enci¬ 
ma de todos. Así sucede con el «stack», el últi¬ 
mo dato que hayamos colocado en él es ge¬ 
neralmente el primero que después vamos a 
sacar de allí. 

Es lo que los técnicos han bautizado como 
memoria «LIFO» (o «last input-first out- 

put») que quiere decir: el último elemento que 
entra es el primero que sale. 

La manera en la que el Forth interpreta las 
instrucciones, o «palabras», que escribimos 
anteriormente es bastante sencilla. Coloca en 
el stack los números que vamos a sumar en el 
orden que se los hemos dado —primero el 3 
y encima el 8. A continuación se ejecuta la pa¬ 
labra Forth + . 

El modo de operación es muy semejante en 
la mayor parte de las sentencias Forth: se sa¬ 
can los dos números del stack, se procesan en 
la forma oportuna y el resultado se vuelve a 
guardar en el stack para que pueda ser ma¬ 
nejado por sucesivas palabras. 

En este caso, se cogen los dos datos que ocu¬ 
pan las posiciones más altas de la pila, se su¬ 
man y se devuelve este dato al stack. 

A continuación la siguiente palabra (.) ex¬ 
trae el número que ahora esté colocado enci¬ 
ma (el resultado de la operación anterior) y 
lo saca en la pantalla. El Forth además impri¬ 
me el mensaje de «OK» para convencernos 
de que la instrucción se ha ejecutado sin erro¬ 
res. Observe y tenga siempre en cuenta que 
tanto los datos como las palabras Forth han 
de estar separadas por un espacio en blanco. 
¡No lo olvide! 

Estos comandos dejan el stack exactamen¬ 
te igual que estaba antes de ejecutarlos. Por 
nuestra parte le damos un consejo: es siem¬ 
pre conveniente que así ocurra ya que de es¬ 
ta forma permitimos a las «palabras» si¬ 
guientes, operar con los valores que se colo¬ 
caron en la pila antes de ejecutarse la ante¬ 
rior secuencia de instrucciones. 

El límite superior del stack siempre contiene 
el útlimo número introducido y si metemos en 
él un nuevo valor, el anterior queda debajo 
de modo que el elemento que hemos almace¬ 
nado más recientemente es el que ocupará la 
parte más alta de la pila, de ahí que se le lla¬ 
me «top of stack» (superior de la pila). 

Quizá nos llame la atención, por lo que he¬ 
mos visto hasta ahora, que el Forth sólo sea 
capaz de sumar dos números y no tres, cua¬ 
tro o todos los que queramos. Pero es lógico, 
la «palabra« Forth «+» opera siempre sola¬ 
mente con dos números (al fin y al cabo es lo 
que nosotros hacemos con cada una de sus ci- 
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fras) y a continuación devuelve al stack un úni¬ 
co resultado. Y esta forma de trabajo no sólo 
es válida para la suma sino que podemos ex¬ 
tenderlo al resto de las operaciones aritméti¬ 
cas empleadas en Forth, tales como multipli¬ 
caciones y divisiones. 

Pero este modo de desarrollar el lenguaje 
no nos impide utilizar expresiones más com¬ 
plejas. Solamente será necesario poner un po¬ 
co más cuidado en lo que estamos haciendo 
a la hora de decidir cómo organizarías según 
esta nueva notación. 


Evaluación de 
expresiones en Forth 


Pongamos un ejemplo. Si queremos evaluar 
en Forth la expresión: 

15 + 2x9 

debemos comenzar multiplicando 2 por 9 (re¬ 
cuerde la prioridad de operaciones) para en¬ 
contrar un resultado intermedio que sumado 
luego a 15, nos dé el valor final de la expre¬ 
sión. 

Otra forma de calcularlo sería sumando pri¬ 
mero 15 y 2 y después multiplicar el resulta¬ 
do por 9. Observe que la solución obtenida 
es completamente diferente de la anterior. 
¿Cuál es la buena? 

Recuerde que en Basic existe un orden de 
ejecución en las operaciones matemáticas y 
que el producto es más prioritario que la su¬ 
ma. Por tanto, el Basic y la mayoría de los len¬ 
guajes utilizarán el primer método de evalua¬ 
ción. 

Sigámosle también en Forth. Para multipli¬ 
car 2 y 9 tendremos que teclear: 

29 * 

y nos dejará el resultado (18) en el elemento 
superior del stack. Podemos comprobarlo vi¬ 
sualizándole en la pantalla usando la palabra 
«.» pero tenga en cuenta que, si así lo hace¬ 
mos desaparecerá de la pila. De manera que 
como vamos a necesitar este valor en la si¬ 
guiente parte del cálculo es mejor que lo de¬ 
jemos donde estaba. 

Después necesitamos sumar 15 al elemento 
superior de la pila. Pues teclee: 

15 + 

y colocará el resultado en el nuevo «TOS» (top 
of stack) pudiéndolo imprimir a continuación. 
La primitiva expresión Basic se ha convertido 


que es el comando Forth que nos va a sacar 
en la pantalla el resultado correcto de la eva¬ 
luación: 33. 

Sobre los cálculos matemáticos queremos 
puntualizar algo. La mayor parte de las ver¬ 
siones del Forth tiene unos operadores aritmé¬ 
ticos que utilizan solamente números enteros 
y además dan resultados que son también en¬ 
teros. 


Escriba ahora: 

9 4/. 

que tiene toda la pinta de ser el equivalente 
en Forth a: 

PRINT 9/4 

y la respuesta obtenida es 2 en lugar de 2.25 
que sería el valor exacto. De esta forma con¬ 
firmamos que el número que nos devuelve la 
operación es también entero. Así que de mo¬ 
mento queda bastante claro que no podemos 
usar números con punto decimal en esta ver¬ 
sión del lenguaje. 

Pero también está restringido el rango de 
los números. Intente teclear: 

1000 200 *. 

Parece que la respuesta que aparece en la 
pantalla no está muy de acuerdo con lo que 
esperábamos. La aritmética en Forth está pen¬ 
sada para ser utilizada en micros, del mismo 
modo que el lenguaje. Por tanto, trabajará con 
números que puedan ser representados con 
16 bits (o dígitos binarios) o lo que es lo mis¬ 
mo, con valores comprendidos dentro del ran¬ 
go de —32768 a 32767. De ahí el mensaje, 
aunque sea ficticio, de «stack lleno»: la pila 
no está llena, lo que se produce es un «over- 
flow» o desbordamiento de la capacidad nu¬ 
mérica de su micro. 

Esta notación aritmética no es tan comple¬ 
ja como parece. El mejor camino para utilizar¬ 
la con soltura es intentar emplearla muchas ve¬ 
ces para hacer en Forth todas las operacio¬ 
nes que se nos ocurran. Después de realizar 
unas cuantas prácticas verá que su uso es ca¬ 
si tan sencillo como la empleada en la aritmé¬ 
tica habitual con una ventaja: es mucho más 
potente. 





La potencia del Forth 
está en crear 
nuevas órdenes en Forth 


Sin embargo, donde radica el poder real del 
lenguaje Forth es en el hecho de poder defi¬ 
nir nuevas «palabras» que se añaden inmedia¬ 
tamente a su vocabulario básico así como de¬ 
finir con otro nombre las ya existentes. 

La «palabra» Forth es algo equivalente 
a las subrutinas, o partes de un programa Ba¬ 
sic a las que se salta tras un GOSUB y siem¬ 
pre terminan con RETURN. 

De un modo sencillo, podemos decir que una 
«palabra» es una serie de instrucciones, y 
sus correspondientes parámetros, que están 
agrupadas bajo un nombre que incorporamos, 
tras definirla, al vocabulario Forth. 

Para ejecutar esta secuencia basta con in¬ 
vocarla, o llamarla, por su nombre y el pro¬ 
grama salta a la serie de instrucciones, así bau¬ 
tizadas, y las ejecuta. 

Supongamos que preferimos utilizar pala¬ 
bras castellanas como operadores aritméticos 
en lugar de los signos matemáticos y también 


emplear ESCRIBIR en lugar del punto Forth. 
Todo lo que hay que hacer es definir las nue¬ 
vas palabras. 

Para ello escribimos: 

: SUMAR+; 

: RESTAR—; 

¡MULTIPLICAR*; 

para las próximas palabras aritméticas, y 
: ESCRIBIR.; 

para conseguir que nos aparezcan los resul¬ 
tados en la pantalla. 

Con estas definiciones, la expresión aritmé¬ 
tica que anteriormente analizamos podría 
transformarse en: 

2 9 MULTIPLICAR 15 SUMAR ESCRIBIR 

obteniendo el mismo resultado en ambos ca¬ 
sos. 

La primitiva expresión sigue siendo válida 
aunque actualmente hayamos definido otras, 
con nombre diferente, pero que realizan las 
mismas operaciones. 

Todas las nuevas palabras Forth que que- 
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ramos crear se definen de la misma forma. Co¬ 
menzamos poniendo dos puntos seguidos por 
el nombre que queremos darle, a continuación 
ponemos la serie de instrucciones que quere¬ 
mos agrupar y cerramos la definición con un 
punto y coma. 

Los dos puntos indican al Forth que vamos 
a definir una nueva palabra y deben ir segui¬ 
dos forzosamente por el nombre que quera¬ 
mos darle. 

Después viene la secuencia de parámetros 
y palabras Forth ya definidas que se ejecuta¬ 
rán al llamar a la nueva. No es necesario que 
sean palabras standard del lenguaje —tales 
como los signos-)- y —del ejemplo anterior— 
sino que podemos usar también cualquier pa¬ 
labra de las que nosotros ya hemos creado. 

Finalmente, la definición se cierra con un 
punto y coma. De esta manera podemos con¬ 
seguir construir un lenguaje completo y com¬ 
pacto, en el que se emplean palabras standard 
del lenguaje para crear otras nuevas, y des¬ 
pués utilizar las nuevas para otras sucesivas 
definiciones. El lenguaje crece de esta mane¬ 
ra indefinidamente. 





Los programas 
siguen el método de diseño 
«Top-down» 


Así es exactamente como se genera un pro¬ 
grama en Forth. Dividimos un problema ge¬ 
neral en grupos de acciones más particulares. 
Estos últimos ya se pueden definir utilizando 
las palabras standard Forth. 

Y es en este punto donde comenzamos pa¬ 
ra luego ir definiendo otras cada vez más com¬ 
plejas. Al final llegaremos a un programa com¬ 
pleto compuesto por una sola palabra que, al 
teclearla, hace que se ejecuten todas las aso¬ 
ciadas. 

Si seguimos usando el ejemplo anterior, po¬ 
demos definir la siguiente palabra: 

: CALCULO 2 9 MULTIPLICAR 15 SUMAR 
ESCRIBIR; 

y ahora, con sólo teclear: 

CALCULO 

se ejecutarán todas las palabras agrupadas 
bajo este nombre, así como también las stan¬ 
dard asociadas a ellas. 

Por supuesto que los programas Forth no 
consisten únicamente en la evaluación de ex¬ 
presiones aritméticas —como en los casos 
anteriores— sino que también tienen a su dis¬ 
posición otras palabras que nos permitirán 
realizar cosas bastante más interesantes y 
atractivas. 

Todas estas palabras básicas, incluidas en 
cada una de las versiones Forth que existen, 
es lo que se conoce como «vocabulario» 
del lenguaje, y en él están recogidas todas las 
que nos van a permitir utilizar variables, im- 
plementar bucles, explorar el teclado y un 
montón de cosas que son necesarias para que 
sus programas sean más complejos y le mues¬ 
tren la auténtica potencia del lenguaje. 


Alaunas órdenes 
a el intérprete 


Si quiere, puede hacer que le aparezca en 
la pantalla todo el vocabulario básico comple¬ 
to empleando el comando: 

’VLIST 

Y no sólo eso. También podemos visualizar 
todas las palabras que hayamos definido no¬ 
sotros mismo. Si no lo ha hecho, le sugerimos 
que teclee las nuevas palabras de creación 
propia, para que por lo menos exista alguna. 

A continuación teclee: 

* LIST 

y podrá conocer todas las que tiene a su dis¬ 
posición. 

Pero empleando este comando puede tam¬ 
bién ver la serie de instrucciones que forman 
parte de cualquiera de ellas. Bastará con es¬ 
cribirlo seguido del nombre que queremos co¬ 
nocer y su listado estará «servido» . 


¿Qué ocurre si por equivocación definimos 
dos veces una misma palabra? Sencillamente 
esta versión del Forth no acepta la segunda 
y nos da un mensaje de error: 

Palabra ya definida 

En otras, sí lo admite sin problemas. Guar¬ 
da la segunda palabra además de la anterior. 
Pero cuando invocamos el nombre con el que 
está definida, el Forth accede a la más reciente 
de todas las que hayamos hecho sin tener en 
cuenta ninguna de las más antiguas. 

Con este intérprete no se nos dará nunca es¬ 
te caso, ya que, como hemos dicho, no admi¬ 
tirá dos definiciones bajo el mismo nombre. 

Entonces si queremos corregir o modificar 
una de las ya existentes el camino más cómo¬ 
do a seguir sería listar la palabra para tener 
constancia de ella en la pantalla (no es nece¬ 
sario aunque sí muy conveniente). Después bo¬ 
rrar del diccionario la que queramos cambiar 
mediante el comando: 

*FORGET palabra 

que le dirá al Forth que elimine de su diccio¬ 
nario la definición que hayamos hecho de «pa¬ 
labra». 

A continuación creamos una nueva, auxi¬ 
liándonos del listado existente en la pantalla 
con el cursor de copia, incluyendo las modifi¬ 
caciones que queramos hacer. 

Sin embargo, para utilizar *FORGET debe¬ 
mos pensar muy bien lo que estamos hacien¬ 
do ya que no sólo nos elimina la palabra que 
le hayamos dicho, sino que también borra to¬ 
das las que estén definidas con posterioridad 
al nombre que sigue a *FORGET. Así que, ¡ojo 
con lo que borramos! 

Hasta este momento debe tener por lo me¬ 
nos una pequeña idea de qué es lo que hay 
que hacer para trabajar con el Forth, pero se¬ 
guro que todavía no tiene una noción clara 
de cómo podemos hacer un programa: no co¬ 
nocemos lo que hace cada una de las instruc¬ 
ciones del vocabulario standard del lengua¬ 
je. 

Podemos dividirlas en grupos. El primero es 
el compuesto por todas las instrucciones en¬ 
cargadas de mantener en orden el stock cuan¬ 
do éste contiene parámetros. Son las instruc¬ 
ciones de tratamiento o manejo de la pila. 


Instrucciones de manejo 
de la pila 


Suponga que tenemos dos valores coloca¬ 
dos en el stack y queremos hacer una división 
entre ellos. Por ejemplo: 

6 2 /. 

nos calcularía el cociente entre 6 y 2 y nos lo 
sacaría en la pantalla. 

Pero quizás el resultado que a nosotros nos 
interesaba es el inverso, o sea, el obtenido al 
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dividir 2 entre 6. La forma inmediata de ha¬ 
cerlo sería escribir: 

2 6 /. 

No siempre es posible hacer esto, ya que en 
la mayoría de las ocasiones no conocemos los 
valores contenidos en el stack. Ahora bien, el 
Forth dispone de un operador que intercam¬ 
bia los dos valores superiores de la pila. En 
nuestro caso ya podríamos realizar el inverso 
de la operación anterior mediante: 

6 2 SWAP/. 

Para comprobar que con esta instrucción 
existe intercambio sin variar para nada el resto 
de los elementos del stack, teclee: 

1 2 3 SWAP... 

y aparecerán en la pantalla estos números pe¬ 
ro con el 2 y el 3 cambiados de orden, o sea: 

23 1 

Pero no es este el único operador que ma¬ 
neja los elementos de la pila. ROT hace que 
giren los tres superiores. Coloca el tercero en 
la posición más alta y desplaza a los otros dos 
un lugar más abajo. Como siempre, la mane¬ 
ra más efectiva de ver cómo funciona es un 
ejemplo práctico, así que escriba: 

1 2 3 ROT... 

El orden como quedan colocados es el que 
aparece en la pantalla y vemos que el 1 es el 
que está colocado encima de los otros dos. 
¿Comprendido? 

Otro operador utilizado en Forth es DUP. 
Su misión es simplemente duplicar la última en¬ 
trada que haya existido en el stack. Si quiere 
calcular el cuadrado de un número sería sufi¬ 
ciente con hacer: 

12 DUP *. 

para que nos aparezca 144 (el cuadrado de 
12) en la pantalla. 

Si en lugar de esto lo que necesitamos es du¬ 
plicar el elemento que está inmediatamente 
debajo del superior, el Forth posee un opera¬ 
dor que realiza este trabajo: ÓVER. Comprué¬ 
belo tecleando: 

1 2 OVER... 

que copiaría el 1 encima de 2 (elemento su¬ 
perior en ese preciso instante) e imprimiría des¬ 
pués los tres elementos existentes sacándolos 
de la pila y dejándola vacía. 

El último de los operadores de manejo de 
stack es DROP, que saca del mismo la última 
entrada de datos. Ejemplo al canto: 

1 2 DROP... 

Y éstos son los más importantes. Su conoci¬ 
miento y manejo pueden resultarnos un poco 
liosos al principio pero poco a poco nos ire¬ 
mos habituando a ello y podremos «sabo¬ 
rear» sus ventajas. 


Las estructuras 
del control del lenguaje 
son muy potentes 


Pero el Forth no sólo dispone de operado¬ 
res aritméticos o de manejo del stack, sino que 
además posee unas estructuras de control clá¬ 
sicas en otros lenguajes que le dan una gran 
potencia y versatilidad. Veámoslas. 

La sentencia que nos permitirá alterar el or¬ 
den de ejecuión de comandos dependiendo de 
que se cumpla o no una determinada condi¬ 
ción es IF... THEN... ELSE. Su forma general 
es: 

< condición > IF < acción-1> 

ELSE < acción-2 > 

THEN < continuar > 

Su modo de funcionamiento es como sigue. 
La evaluación de la condición deja un «falso» 
o «verdadero» en el stack. Este resultado se 
analiza y si es verdadero se ejecuta la 
acción-1, si no, realiza la acción-2 y después 
continua el programa en el punto que sigue 
aTHEN. 

El Programa I sería un ejemplo de utiliza¬ 
ción de esta estructura. Para utilizarlo basta¬ 
ría con teclear la nota seguida de la palabra 
«NOTA» una vez que haya sido definida pa¬ 
ra que se nos informe de si hay aprobado o 
no. 


Programa I 


: NOTA 5 < IF. "SUSPENSO" ELSE." PRO¬ 
BADO" THEN CR." CORECTO ?"; 

El Forth dispone también de una serie de es¬ 
tructuras de bucle que hace que se repitan una 
serie de instrucciones durante un determina¬ 
do número de veces. Es el conocido FOR... 
NEXT del lenguaje Basic. 

< valor final > 

< valor inicial > DO < acción > LOOP 

Con él estamos ejecutando acción desde que 
el «índice» es igual al valor inicial hasta que 
alcanza el valor final. 

La palabra clave LOOP hace que volvamos 
a DO mientras no se haya alcanzado el valor 
final. Le sugerimos que intente hacer variacio¬ 
nes sobre este pequeño ejemplo, Programa II, 
para clarificar sus ideas. 


Programa II 


: BUCLE1 12 0 DO. «ESTO ES UN BUCLE 
QUE SE REPITE 12 VECES» CR LOOP; 

Podemos acceder al índice del bucle median¬ 
te la palabra Forth «I» que obtiene el valor 


en curso de la variable Indice del bucle DO 
y le sitúa en la parte superior del stack. Si te¬ 
clea el Programa III lo verá en funcionamien¬ 
to. 


Programa III 


: BUCLE 131 DO I. SPACE. «ESTO ES UN 
BUCLE QUE SE REPITE 12 VECES» CR LOOP; 

Si deseamos que el índice no se incremente 
de 1 en 1 sino con un valor diferente, se pue¬ 
de utilizar la estructura: 

DO... número + LOOP 

poniendo en «número» el incremento de¬ 
seado, tanto positivo como negativo. Pero ésta 
es una facilidad que no contempla nuestro in¬ 
térprete Forth. ¡Es una pena! 

Existen también otra clase de bucles que van 
a repetir una serie de comandos dependien¬ 
do de que se cumpla o no una condición. En 
Forth este tipo de bucle puede ser de dos for¬ 
mas. 

He aquí la primera de ellas: 

El bucle WHILE nos va a permitir repetir una 
serie de acciones mientras se esté cumpliendo 
una determinada condición. Su forma gene¬ 
ral es: 

BEGIN < condición > WHILE < acción > 
REPEAT 

La palabra BEGIN indica simplemente el 
punto donde comienza el bucle. Después la 
condición deja un valor en el stack dependien¬ 
do que se cumpla o no. 

WHILE analiza dicho valor y si no es cero 
(falso) ejecuta la «oetión». REPEAT nos de¬ 
vuelve otra vez a BEGIN. 

Si la condición no se cumple y, por tanto, 
el valor que coloca en el stack es cero, enton¬ 
ces no se ejecuta «acción» y se continúa por 
los siguiente a la palabra REPEAT. 

El Programa IV es un ejemplo de la utiliza¬ 
ción de este tipo de estructuras. 


Programa IV 


■ BUCLES 1 DUP BEGIN 13 < WHILE. «ES¬ 
TO ES UN BUCLE QUE SE REPITE 12 VECES» 
CR 1+DUP REPEAT; 

La segunda forma de bucle indefinido es la 
que hace que se esté ejecutando un proceso 
hasta que se cumpla una condición. Se trata 
de la instrucción GEGIN... UNTIL. 

El formato más general de esta sentencia es: 

BEGIN < acción > < condición > UNTIL 

y su forma de trabajar es la siguiente: 

BEGIN marca, como en el caso anterior, el 
comienzo del bucle. El cuerpo del mismo es 
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«acción» y será lo que se repita en el caso 
de no cumplirse la condición. 

Después se evalúa la condición y deja en el 
stack un valor acorde con el resultado de la 
misma. UNTIL es la palabra clave que se en¬ 
carga de encaminarnos a un sitio o a otro di¬ 
ferente. Cuando se encuentre con que el re¬ 
sultado lógico de la condición es falso (cero), 
vuelve a BEGIN y repite el proceso. 

Sin embargo, si es verdadero (distinto de ce¬ 
ro) el proqrama continúa por lo que hay de¬ 
trás de UNTIL. 


Programa V 


: BUCLE4 0 BEGIN. «ESTO ES UN BUCLE 
QUE SE REPITE 12 VECES» CR 1 + DUP 
12 = UNTIL. «FIN»; 

Estos dos últimos bucles funcionan de una 
manera muy parecida; se evalúa una condi¬ 
ción y dependiendo del resultado se continúa 
fuera del mismo o se repite la ejecución de un 
determinado proceso. 

Pero existe una gran diferencia entre am¬ 
bos; el momento donde se comprueba si se 
cumple la condición. 

En el primer caso realizamos el análisis an¬ 
tes de ejecutar el cuerpo del bucle, por tanto, 


puede darse el caso que la condición sea fal¬ 
sa y no ejecutemos acción alguna. 

Sin embargo, en el segundo siempre se va 
a ejecutar el proceso que hayamos definido 
entre BEGIN y UNTIL (al menos una vez). Se 
debe esto a que ahora la evaluación de la con¬ 
dición se hace al final del mismo. Así que, ¡cui¬ 
dado con este matiz! 

Parece que se nos ha olvidado algo al ha¬ 
blar de este lenguaje; las variables. ¿Es que 
no se emplean? 

La verdad es que sí, existen y se usan. Pero 
una de las cosas que da potencia y velocidad 
al Forth es precisamente que utiliza las varia¬ 
bles solamente cuando es imprescindible ha¬ 
cerlo. 

Para pasar parámetros a rutinas o a ope¬ 
radores empleamos el stack tal y como lo he¬ 
mos venido haciendo hasta ahora ya que se 
trata de valores temporales y no tiene mucho 
interés almacenarlos continuamente. 


Las variables en Forth 


Pero quizá necesitemos alguna vez guardar 
un determinado dato permanentemente. Y pa¬ 
ra esto están las variables en éste y en la ma¬ 
yoría de los lenguajes. Pero en este caso es¬ 
tarán definidas a nivel global, es decir, que 
pueden ser utilizadas por cualquiera de las pa¬ 
labras que estén en el vocabulario. 


La forma de declararlas es; 

< valor inicial > VARIABLE < nombre > 

y el nombre que le hayamos dado se incor¬ 
pora directamente al vocabulario de variables. 
Con: 

0 VARIABLE PUNTOS 

estamos creando una variable que se llama 
PUNTOS, a la que damos un valor inicial ce¬ 
ro. 

Podemos dar, o asignar, un valor distinto del 
inicial a una variable, ya definida, a lo largo 
de un programa. La forma de hacerlo en Ba¬ 
sic sería: 

PUNTOS =100 

pero en Forth no se hace así. Es un poco dife¬ 
rente, compárelo usted mismo: 

100 PUNTOS! 

Y también podemos hacer el proceso inver¬ 
so, es decir, recuperar en el stack el valor que 
previamente habíamos asignado a una varia¬ 
ble. 

Para colocar el valor de PUNTOS en el ele¬ 
mento superior del stack bastaría con hacer: 

PUNTOS 

y después imprimirlo con la palabra «.». 

Pero estas dos últimas instrucciones se po¬ 
drían agrupar en una sola. Si escribimos: 

PUNTOS ? 

obtendríamos el mismo resultado. 
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Por si queremos conocer todas las variables 
que hay definidas hemos implementado un co¬ 
mando que consigue hacerlas aparecer en la 
pantalla. Tecleando: 

♦VARLIST 

podremos obtener todo el vocabulario de va¬ 
riables incorporadas al lenguaje Forth. Inten¬ 
te definir unas cuantas y compruebe cómo fun¬ 
ciona esta nueva sentencia. 

Ahora nos surge una pregunta: ¿qué hace¬ 
mos cuando ya esté creado un programa com¬ 
pleto compuesto por varias palabras, que fun¬ 
cione y cumpla su cometido? 

El Forth es un lenguaje como todos los de¬ 
más, luego lo que debemos hacer es guardar 
el programa en cinta o en disco para así po¬ 
der volver a utilizarlo cuantas veces queramos. 
Si quiere almacenarlo, o salvarlo, escriba: 

*SAVE < nombre > 

y todas las palabras y variables definidas que 
estén en ese momento en la memoria pasarán 
a un soporte físico (disco o cinta) y de esta for¬ 
ma no las perderemos. 

Para volver a cargarlas otra vez en la me¬ 
moria siga el mismo procedimiento al que ya 
está acostumbrado en Basic: 

*LOAD < nombre > 

Después de dar un repaso general a unas 
cuantas palabras standard del Forth, visuali¬ 
ce el diccionario básico mediante: 

"VLIST 

Observará que en él hay incluidas algunas 
palabras que no son propias, precisamente, 
del lenguaje tales como CLG, DRAW, MOVE, 
etc. 

Se han añadido a esta versión para darle 
una mayor potencia, sobre todo a la hora de 
crear gráficos y dibujos en la pantalla. Se uti¬ 
lizan de una forma muy similar a como se ha¬ 
ce en Basic, pero teniendo en cuenta la nue¬ 
va notación invertida que hemos aprendido. 

Como muestra de sus posibilidades le deja¬ 
mos el Programa VI. Echele un vistazo e in¬ 
tente explicarse cómo funciona. 


Programa VI 


: CUADRADO -2 -2 MOVER DUP 0 
DRAWR O SWAP DRAWR DUP MINUS 0 
DRAWR DUP MINUS 0 SWAPT DRAWR; 

: FIGURA OCLS 200 320 MOVE 1 DO I 
CUADRADO LOOP; 


Y esto es todo por el momento. En una pró¬ 
xima oportunidad nos acercaremos un poco 
más a todas las palabras que utiliza este nue¬ 
vo lenguaje Forth. Deseamos que, al menos, 
le llame un poquito la atención esta nueva for¬ 
ma de ver la programación. 


to rem tttttttttttttttttttttttttttt 

20 REM * AMSTRAD FORTH » 

30 REM * * 

40 REM * MICROHQBBY AMSTRAD * 

50 REM 
60 REM 

70 REM INICIAL! Z ACION 

BO MQDE 2:BQRDER 13:INK O,13:INK 1, 

O 

90 f orth*«CHR*<12)-f'Microhabby Fort 
h VI.1» 

100 GPENQUT "dummy":MEMORY HIMEM-t: 
CLOSEOUT 

110 temp-O:DEFINT a-z 
120 DIM w*(130) ,p(130> ,taeg (40) ,ff <4 
O),df<40>,buc1e(40> v 11 (40),li(40) 
130 >rt <0> «"QK": er* < 1) «"Deebardami * 
nto da la capacidad mínima del etac 
k":er*(2)“"Stack vacio" 

140 er*(3>«" ya defi ni do":ar*(4)•" 

- nombre de variable i 1 egal ’•: erl (5) 
- palabra no permiti da":er»(6)«" 
Stack lleno":er*(7>»"Stack de retor 


no lleno" 

150 apmax-lOO:DIM a (epmax > : ap—1 
160 cvn-58:DIM cvoc»(cvn),dep(cvn,1 
) 

170 FOR i-0 TO cvn:READ cvoc*(i),da 

p<i,0),dep<i,l>:NFXT 

ISO cvoc*<5)-"."+CHR*<34> 

190 umax«10O:vmax-100: OIM uvdcKuiu 
x),uvex*(umax),var*(vmax),var <vmax) 
200 uvn*-I:vrn»-l:PRINT íorth*:PRIN 
T:PRINT er*(O) 

210 ON ERROR BOTO 2500 

220 REM ENTRADA DE COMANDOS 

230 w*«"":er=0:LINE INPUT ln*:IF In 

*-"" THEN 660 ELSE IF LEN(ln*)>240 

THEN PRINT “Linea demaaiado larga": 

GQTQ 230 

240 WHILE ASCdn*>-32: IF LEN<ln»)>l 
THEN ln*-RIQHT»(ln*,LEN(ln*)-l>: WE 
ND ELSE 660 

250 WHILE RIGHT*(ln*,1)-CHR*(32) :ln 
*«LEFT* (ln*, LEN dn*)-1>:WEND 
260 ln»-UPPER*(ln*>:IF ASC(ln*)«ASC 
("*"> THEN IF LEN(ln*> >1 AND LEFT*< 
ln»,2)<>"* " THEN GOSUB 1670:IF er 
THEN 230 ELSE w»-"":GOTO 660 

270 ln*«ln*+CHR*(32> ix*«.q«l:wn— 

1 :comp B 0 

280 WHILE q<LEN(ln*) 

290 p=q:WHILE MID»(1n»,q,1)<>“ ":q« 
q+1:WEND 

300 w*=MID*(ln*,p,q-p>:IF w*«. TH 

EN IF wn—l AND RIGHT* (1 n», 2)«" ; " 

THEN comp E -l:GOTO 610 ELSE PRINT "D 

efinicion incorrecta":GOTO 230 

310 FOR i«cvn TO O STEP-iilF cvoc*( 

i)< >w* THEN NEXT:GOTO 370 

320 IF comp THEN IF wn=0 THEN er=3: 


GOTO 660 

330 IF wn>=0 THEN IF w*(wn)«"VARIAB 

LF" THEN er=4:GOTO 660 

340 x#=x**CHR*(O) +CHR*(i+14): IF «*■'. 

>"."+CHR*<34> THEN 610 _ 

350 te-INSTRÍq,ln*,CHR*<34)+CHR*(32 
)):IF te=0 THEN PRINT"."iCHR*(34) 5 " 
ain ";CHR*(34):GOTO 230 
360 x*«x»+MID* <1n*,q+1,te-q-1)+CHR* 
(4):q=te+1:GOTO 610 

370 FOR i«uvn TO O STEP-1:IF uvoc*( 
i)Ow* THEN NEXT:GOTO 410 
330 IF comp THEN IF wn=0 THEN er=3: 
GOTO 660 

390 IF wn>«0 THEN IF w*(wn>«"VARIAB 
LE" THEN er=4:GOTO 660 
400 x *=x *+CHR* < 1) +CHR* ( i +14) : GOTO 6 
10 

410 FOR i=vrn TO O STEP -1:IF viril 
i)Ow* THEN NEXT: GOTO 450 
420 IF comp THEN IF wn=0 THEN er=3: 
GOTO 660 

430 IF wn>«0 THEN IF w*(wn)«"VARIAB 
LE” THEN er«3:GOTO 660 
440 x*=x*+CHR*(2)+CHR*(i+14):GOTO 6 
10 

450 FOR i«l TO LEN(w*> 

460 IF i *1 AND <ASC(w*)=ASC("+") OR 
ASC(w*)=ASC("-“)> AND LEN(w*)>1 TH 
EN 4B0 

470 IF MID*(w*,i,1><"O" OR MID*(w*, 
i,1) V* 9" THEN 530 
480 NEXT i 


490 IF comp AND wn«0 THEN er=5:GQTQ 

660 

500 IF wn>«0 THEN IF w*(wn)«"VARIAB 
LE" THEN er«5:GOTO 660 
510 IF VAL(w*)>32767 OR VAL(w*)<-32 
767 THEN PRINT"Numera "jw*;" demaai 
ado grande":GOTO 230 

520 x*=x*+CHR*(3)+w»+CHR*(4>:GOTO 6 
10 

530 IF wn<0 THEN 560 ELSE IF w*(wn) 
O"VARIABLE" THEN 560 
540 IF comp AND w*=w*(1) THEN er=3: 
GOTO 660 

550 x*=x*+w*+CHP*(4):GOTO 610 

560 IF w*< >" 5 " THEN 580 

570 IF comp «O OR qOLENdn*) THEN P 

RINT"Punto y coma i 1egal":GOTO 230 

ELSE 610 

5B0 IF comp THEN IF wn«0 THEN 610 
590 IF comp THEN IF w*Ow* (1 > THEN 
er=5:GOTO 660 ELSE x*«x*+CHR*<1)+CH 
R®(uvn+J5):GOTO 610 
600 er=5:GOTO 660 
610 wn=wn+l:w*(wn)=w® 

620 WHILE MID*(ln*,q,1)=" “:q=q+l:W 
END 

630 WEND 

640 x*=x*+CHR*(13>:IF comp THEN 690 
ELSF 730 

650 REM RUTINA DE ERROR 
660 IF POS(#0)>1 THEN PRINT CHR*(32 
>» 

670 PRINT w*j er*(er) : GOTO 230 
680 REM COMPILAR NUEVA PALABRA 
690 IF wn<3 THEN PRINT"Definición i 
ncompleta":GOTO 230 

700 uvn=uvn+t:uvoc*(uvn)=w*(1):uvex 
*(uvn)«x* 

710 w*=”":GOTO 660 

720 REM EJECUCION DE COMANDOS 

730 1 n«0: w* (In) =x*: er=0 

740 GOSUB 750:..GOTO 660 

750 p(ln)=l:ff(ln)=0:dí(ln)=0 

760 WHILE MID*(w*dn> ,p (ln), 1 >OCHR 

*(13) 

770 elase=ASC(MID*(w*(1n),p(ln),1)) 

:p(ln)=p(lri)+l 

7B0 IF claeeOO THEN B90 

790 pal=ASC(MID*(w* dn),p(ln),1))-l 

4: p (1 n) =p (1 n) + 1 

BOO IF ff (ln)=0 QP pal=37 OR pal=39 
OR pal=40 THEN 830 
810 IF pal=5 QP pal=32 THEN WHILE A 
SC(MID*(w*(ln),p(ln),1)> <>4:p(ln)=p 
(1 n) +1: WEND :p(ln)=pdn)+l 
820 GOTO 1030 

830 IF sp+dsp(pal,1)<-l OR sp+dsp(p 
al,1> >apmax THEN er = l:GOTO 1040 
840 IF sp-dep(pal,OX-l THEN er=2:G 
OTO 1040 

850 sp=sp+dsp(pal,1) 

860 IF pal < 43 THEN ON pal+1 GOSUB 1 
060,10B0,1090,1100,1110,1120,1130,1 

140.1150.1160.1170.1180.1190.1200.1 

210.1220.1230.1240.1250.1260.1270.1 

280.1290.1300.1310.1320.1330.1340.1 

350.1360.1370.1380.1390.1400.1410.1 

420.1430.1440.1450.1460.1470.1480.1 
490 

870 IF pal>42 THEN ON pal-42 GOSUB 
1500,1510,1520,1530,1540,1550,1560, 
1570,1580,1590,1600,1610,1620,1630, 
1640,1650 

880 IF er=0 THEN 1030 ELSE 1040 

890 IF elase<>1 THEN 940 

900 pal=ASC(MID*<w*(ln),p(ln),l))-l 

4 :p(ln)=p(ln)+l 

910 IF Tf(ln) THEN 1030 

920 IF ln<34 THEN 1n=ln+1:w*(1n)=uv 

ex*(pal) ELSE er=7:RETURN 

930 GOSUB 750:IF ln=0 OR er=0 THEN 

1030 ELSE RETUPN 

940 IF elase< >2 THEN 980 

950 pal =ASC (MID*(w*(ln) ,p(ln),l))-l 

4:pdn)=p(ln)+l 

960 IF tf (ln) THEN 1030 

970 sp=sp+1:s(sp)= 8 var(pal):GOTO 10 

30 

980 IF c1aee< >3 THEN er=l:GOTQ 1040 
990 p=p(ln):WHILE ASC(MID*(w*dn),p 
,l))< >4:p=p + l:WEND 

1000 v=VAL (MID* (w* (ln) ,p (lri) ,p-p dri 
)+ 1 )):p(ln)=p+l 
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1010 IF f f <ln> THEN 1030 
1020 Bp=sp+1: b (sp) =v 
1030 WEND 

1040 ln*ln-l:RETURN 

1050 REM LISTA DE COMANDOS 

1060 temp!-a(ep + 1):IF temp!<0 THEN 

tempf -temp!+65536 

1070 POKE 6(ep+2),temp!-256*1NT(tem 
p!/256)3POKE B(Bp+2>+l,INT(temp!/25 
6):RETURN 

1080 s (ep)= s(ep)te(ep+1):RETURN 
1090 s ( sp ) =s < sp) +b < Bp + 1 ) : RETURN 
1100 b( sp)= b<B p>- b( sp + 1>:RETURN 
1110 PRINT b<bp+1>;CHR*(8)RETURN 
1120 WHILE ASC <MID* (wí(ln) , p Un) , i ) 
>04 SPRINT MID*(w*(ln> ,p(ln> , 1) ; sp 
Un)*p(ln)+ls WEND s p < 1 n) =p (ln>+lsRET 
URN 

1130 6(sp)=lNT ( b ( sp)/s < sp +1)> s RETUR 

M 

1 140 Urt)p = « < sp > S B < BP ' -INT ( B ( sp -1 > / s 
(sp) > S B (BF'-l > =s <sp-l > -B <Bp) «tsmpSRE 
TURN 

11 50 s < sp) * < b í sp > / O > s PETURN 
1160 b( sp)*( b( sp>=0)sRETURN 
1170 b( sp)*(s(sp> <s(sp + i> > s RETURN 
1180 b( sp > = < s ( Bp > =s ( Bp+ 1 > >: RETURN 
1190 s(sp > * (s(sp)>s <sp + 1> > s RETURN 
1200 temp!*PEEK<s(sp+l>>+256 *PEEK(b 
( sp+1)+1):IF tomp!>32767 THEN tomp! 
-temp'-65536:PRINT tomp!jCHR*(8);sR 
ETURN ELSE PRINT temp!;CHR*(8);:RET 
URN 

1210 tomp!=PEEK(s(sp>>+256*PEEK<s(s 
p)+1)sIF tomp¡>32767 THEN fi(Bp)=tem 
p!-65536sRETURN ELSE B<sp>«tomp!íPE 
TURN 

1220 fi < sp > =ABS(s(sp) ) : RETURN 
1230 6(Bp)=fi(fip) AND b<B p+l>sRETURN 
1240 b( sp)—PEEK (b ( sp > > s RETURN 
1250 PRINTsRETURN 
1260 RETURN 

1270 s(Bp)=s<Bp-l>sRETURN 
1280 PRINT CHR*(b(bp+ 1)>;sRETURN 
1290 in*=INKEY«:IF ln*-"” THEN 1290 
ELSE 6(sp)-ASC(in*>sRETURN 
1300 s(sp)=MAX(B(Bp>,s(sp+l> > s RETUR 
N 

1310 b( sp)=MIN(s(sp>, b( sp+1)> sRETUR 
N 

1320 s(sp)=-s(sp)sRETURN 

1330 s(sp) = 6< Bp > MOD b< sp+1>sRETURN 

1340 b( sp) = s< Bp) OR b< ap+1)sRETURN 

1350 b< sp)=s<sp-2)sRETURN 

1360 PRINT " ";s RETURN 

1370 PRINT USING "I*" ; SPACE* (s (Bp + 1 > 

-256*INT(b( sp+1)/256)>;sRETURN 

1380 tomp = B <Bp) SB(Bp)=B<Bp-l>8B<Bp- 

1 > -temp s RETURN 

1390 vrn*vrn + lsvir<vrn)=s(sp + 1>s WHI 
LE ASC(MID4(w*(ln>,p(ln>,1>><>4svar 
t(vrn)=v»rt(vrn)+MID*(w$(ln), p (ln), 
l):p(ln)=p(ln)+l: WEND:p(ln> a p(ln)+l 
:RETURN 

1400 b <sp > = s(sp) XOR b( sp + 1>sRETURN 
1410 beg(ln)=p(ln>: RETURN 
1420 IF b(B p +1) = 0 THEN p(ln>=bog(ln 
>sRETURN ELSE RETURN 
1430 IF s<Bp + l)O0 THEN RETURN ELSE 
i f(ln> —1: RETURN 

1440 IF i i <1n> THEN i f(Xn>=0:RETURN 
ELSE p(1n)-beg(1n >:RETURN 
1450 IF BÍsp + DOO THEN RETURN ELSE 
i i <ln>—1 s RETURN 
1460 fi (ln)-0:RETURN 
1470 ii (ln> —1-f i <ln>sRETURN 
1480 FQR i*O TQ uvnsuvocí(i>= "":uve 
x*(i )-"":NEXT:uvn=-l:PRINT fc.rthísP 
RINT 

1490 FQR 1=0 TQ vrnsvar*(i>= ""svar( 
1 ) -O: NEXT: vrn**-1 s RETURN 
1500 temp-s(sp-2)s b( sp-2)=s(sp-1> s s 
<sp-l)=s<Bp);B<Bp)=tBmpsRETURN 
1510 IF NQT dfUn) THEN df(ln>—l:b 
ucle <1n)—p(ln)sll(1n)—s(Bp+1>:1 i <ln 
>=b<bp+ 2>sRETURN ELSE PETURN 
1520 1 i <ln)=l i (ln> + l s IF IKlnXllU 
n) THEN p<ln)=bucla(ln):RETURN ELSE 
d-f (ln>-O:RETURN 
1530 s(sp)-li(ln)sRETUPN 
1540 CLG s(sp+l>sRETURN 
1550 DRAW s(sp+2 >,b( sp+1):RETURN 
1560 DPAWR s(sp+?>,s( br+J> sRETUPN 
1570 tBmp!=FRE (" "):IF temp¡>32767 T 


HEN s (sp>-temp .'-65536: RETURN ELSE © 
< sp)-temp!s RETURN 

1580 MOVE b < fip+2) , b < Bp + 1 ) : RETURN 

1590 MOVER s<sp+2>,s(Bp+1)sRETURN 

1600 PLOT B(Bp+2>,B<Bp+l>sRETURN 

1610 PLQTR s<sp+2>,s(sp+1>sRETURN 

1620 s<sp>=RND*32768:RETURN 

1630 b( sp> =TEST(b( sp+1),s(sp> >:RETU 

RN 

1640 b(B p > =TESTR(s(ep +1>,fi <sp>)sRET 
URN 

1650 x-XRQS:y=YPQS:PLOT 800,800 ,b(b 

p + DsMQVE x, y s RETURN 

1660 REM PROCESO DE EDICION DE COMA 

NDOS 

1670 er=0:w*="" 

1680 IF 1 n*="tVLIST" THEN FOR i-cvn 
TO O STEP -Is PRINT cvoc*(i>,:NEXT 
SPRINT:RETURN 

1690 IF ln*<>"*LIST" THEN 1750 
1700 FQR i-uvn TO O STEP -1 
1710 PRINT uvocftU>, 

1720 IF INKEY*-"" THEN 1740 
1730 WHILE INKEY*-""iWEND 
1740 NEXT:PRINT:RETURN 
1750 IF LEFT* (lni,6K>"¿LIST " THEN 
2010 

1760 w*=RIGHT*(ln*,LEN(ln*)-6> 

1770 WHILE ASC <w*)-32:w*=RIGHT* (w*, 
LEN (w* >-1) s WEND 

1780 FOR i-uvn TO O STEP -IsIF w*<> 
uvocl(i) THEN NEXT:PRINT w*;" - Pal 
abra deficonocida"ssr-1:RETURN 
1790 x*-uvBx*<i> 

1800 WHILE ASC(xS> < >13 

1810 el bbb-ASC( xt):x«-RIGHT*(x*,LEN 

<xS>-l> 

1820 IF clafiiOO THEN 1890 

1830 pal—ASC <x*>-14:x*=RIGHT*(x*,LE 

N(x*> -1> 

1840 PRINT cvoci(pal);" 

1850 IF pal<>5 AND pal 032 THEN 199 
O 

1860 WHILE ASC(xl)<>4sPRINT LEFT* <x 
1> i : x*-RIGHTKxt,LEN <x *) -1 > : WEND 
1870 x *=R I GHT Kxt, LEN < x * > -1 > : IF pal 
-5 AND claseOS THEN PRINT CHR*<34> 

; 

1880 PRINT " ";:GOTO 1990 
1890 IF clafieOl THEN 1930 
1900 pal-ASC(x«)-14:x*-RIGHT*<x*,LE 
N<x*> -1 > 

1910 PRINT uvoci(pal);" 

1920 GOTO 1990 

1930 IF clase02 THEN 1970 

1940 pal-ASC <x•)-14 s x S=RIGHT $ < x $,LE 

N(x*> -1 > 

1950 PRINT varí(pal) 

1960 GOTO 1990 

1970 IF claseOS THEN PRINT er*<l>: 

GOTO 2000 

1980 GOTO 1860 

1990 WEND 

2000 PRINT:RETURN 

2010 IF LEFT* <ln*,9)0" tFORGET " TH 
EN 2100 

2020 hS=R 1GHT*(ln*,LEN(ln*>-8) 

2030 WHILE ASC < w*)=32:w$=RIGHT * < w$, 
LEN < mS >-1):WEND 

2040 FOR i=uvn TO O STEP -IsIF «•<> 

uvcic«(i> THEN NEXT:GOTO 2070 

2050 FQR j-i TO uvn:uvoc$(j>—""sexe 

c*<j>="":NEXT 

2060 uvn=i-l:RETURN 

2070 FOR i-vrn TO O STEP -IsIF w*<> 
var*(i> THEN NEXT:PRINT w*;" - Pala 
bra desconocí da"ser=-lsRETURN 
2080 FQR j-i TO vrn-isvar*(j>-var*( 
j + l> svar <j)=var <j + 1> sNFXT 
2090 vrn=vrn-l:RETURN 
2100 IF 1n*="*SAVE" THEN 2440 
2110 IF LEFT*(ln*,6)0"*SAVE " THEN 
2260 

2120 h*=RIGHT*( 1ní,LEN(in*>-6) 

2130 WHILE ASC(w*> =32:w*=RIGHT*(wf, 
LEN(w*>-l>:WEND 
2140 dp-INSTR <w*, 

2150 IF dp-0 THEN wl*=w*sw2*="4TH" 
ELSE wlS-LEFT*(w*,dp-1>sw2*=RIGHT*< 
m*,LEN(m*)- dp > 

2160 IF wl*-"" QR LEN(wl*)>8 OR LEN 

<w2*>>3 THEN 2440 

2170 IF w2*="" THEN w2*= ,, 4TH" 

2180 w*=wl*+"."+w2* 


2190 OPENOUT w* 

2200 PRINT #9,uvn:PRINT #9,vrn 
2210 FOR 1-0 TO uvn:PRINT #9,uvoc*( 
i>SPRINT #9,LEN(uvex*(1)) 

2220 FQR j-1 TO LEN(uvex*(i>>:PRINT 
#9,ASC(MID* <uvex *(i>,j,1> >;:NEXT j 
2230 NEXT i 

2240 FOR 1-0 TO vrn:PRINT #9,var*(i 
>SPRINT #9,var(i)sNEXT 
2250 CLQSEOUT:RETURN 
2260 IF ln*«"*LOAD" THEN 2440 
2270 IF LEFT*(ln*,6)O"*L0AD M THEN 
2440 

2280 w*-RIGHT*(ln*,LEN(ln*)-6) 

2290 WHILE ASC(w*)=32:w*=RIGHT*(w*, 

LEN(w*>-i):WEND 

2300 dp-INSTR(wS,"."> 

2310 IF dp-0 THEN wl*=w*sw2*="4TH" 
ELSE wl*-LEFT*(w*,dp-1)sw2*-RIGHT*( 
w*,LEN(w*)-dp) 

2320 IF wl*-"" OR LEN(wl*)>8 OR LEN 

(w2*> >3 THEN 2440 

2330 IF w2*»"" THEN w2*-"4TH" 

2340 w*=wl*+"."+w2* 

2350 OPENIN w* 

2360 INPUT #9,uvn:INPUT #9,vrn 
2370 ERASE uvoc*,uvex*,var*,var 
2380 DIM uvoc*(umax),uvex*(umax),va 
r*(vmax),var(vmax) 

2390 FOR 1-0 TO uvn: INPUT #9, U vcic*( 
i):INPUT #9,lux 

2400 FOR j=l TO lux:INPUT #9,temp:u 
vex*(á)-uvex*(i>+CHR*(temp):NEXT j 
2410 NEXT i 

2420 FOR i-0 TO vrn:INPUT #9,var*(i 
):INPUT #9,var(i):NEXT 
2430 CLOSEIN:PETURN 

2440 IF 1n*< V tVARLIST" THEN PRINT 
"Comando desconocido o Incompleto": 
er —1: RETURN 

2450 FQR i-vrn TO O STEP -l 

2460 w*=var*(1)+CHR*(32)+STR*<var(1 

))+SPACE*(2)SPRINT w* f 

2470 IF INKEY*-"" THEN 2490 

2480 WHILE INKEY*-"":WEND 

2490 NEXT:PRINT:RETURN 

2500 er=6:IF sp>100 THEN Bp=lOO:RES 

LJME NEXT ELSE w*«"": RESUME 660 

2510 REM DATOS DE PALABRAS RESERVAD 

AS 

2520 DATA "•",2,-2,"*",2,-1,"+",2, - 
1 9 "-",2,-1,"."> O,—1,"7",0,0 ,"^> 2,— 

1, "/MOD",2,0,"0<",1,0,"0-",1,0,"<", 

2 , -1 

2530 DATA ,2,-1,">",2,-l,"7",l, - 
1, "S>", 1,0, "ABS", 1,0, "AND", 2,-1, "CS>" 
,1,0,"CR",0,0,"DROR",1,-1,"DUP",1,1 
2540 DATA "EMIT",1,-1,"KEY",O,1,"MA 
X",2,-l,"MIN",2,-l,"MIÑUS",1,0,"MOD 
",2,-l,"0R",2,-1,"OVER",2,1 
2550 DATA "SPACE",O,O,"SPACES",1,-1 
,"SWAP",2,0,"VARIABLE",1,-1,"XOR",2 
,-1,"BEGIN",0,0,"UNTIL",1,-1 
2560 DATA "WHILE",1,-1,"REPEAT",O,O 
,"IF",1,-1,"THEN",O,O,"ELSE",O,O,"F 
ORTH",0,0,"CLEAR",0,0,"R0T",3,0,"DO 
",2,-2,"LOOP",O,O,"I",0,+1 
2570 REM DATOS PARA PALABRAS AMSTRA 
D 

2580 DATA "CLG",1,-l,"DRAW",2,-2, "D 
RAWR",2,-2,"FRE",0,1,"MOVE",2,-2,"M 
OVER",2,-2 

2590 DATA "PLOT",2,-2,"PLQTR",2,-2, 
"RND",O,1,"TEST",2,1,"TESTR" , 2, 1, "G 
PAPEN",1,-1 



no realicen el trabajo duro. M. H. AMS- 
TRAD lo hace por ti. Todos los listados que incluyan 
este logotipo se encuentran a tu disposición en un cas¬ 
sette mensual, solicítanoslo. 
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— Nivel 2: Capitales. 

— Nivel 3: Naciones-capitales. 
— Nivel 4: Organización militar. 
— Nivel 5: Organización econó¬ 
mica. 


En el primer nivel aparecerá el ma¬ 
pa de Europa y un cuadrado rojo en 
una nación europea. 

El ordenador te preguntará qué 
nación es donde se encuentra el cua¬ 
drado rojo. Si adivinas la nación te 
da 20 puntos y te pregunta otra na¬ 
ción. 

Cuanto tengas 40 puntos, pulsan¬ 
do «L» cambias de nivel. 

En el segundo nivel, lo que hay 
que poner es la capital de la nación. 
Cuando tengas 80 puntos, pasas a 
otro nivel pulsando «L». 

... y así sucesivamente con 
«Naciones-capitales», «Organizacio¬ 
nes militares» y «Organizaciones 
económicas». 

Los cambios de nivel se producen 
a: 

— los 40 pts; 

— los 80 pts; 

— los 120 pts; 

— los 160 pts; 

— los 200 pts. 

A los 200 puntos vuelves a comen¬ 
zar. 


Variables 

E Valor «X» del cuadrado en pan¬ 
talla de gráficos. 

F Valor «y» del cuadrado en pan¬ 
talla de gráficos. 

H Valor del incremento. 

I Color del cuadrado (Siempre ro¬ 

jo ii) 

Q$ Nombre de la nación, capital, 
etc. 

BC$, BD$, BE$, BF$, BG$, BH$, 
Bl$, BJ$, BK$, BL$, BLL$, BM$, BN$, 
BO$, BP$, BQ$, BR$, BS$, BT$, 
BU$, BW$, BX$, BY$, Datos. 

Ca Nivel. 

K$ Nombre de la nación, capital, 
etc. que introduces. 

LL Puntuación. 

AZ Número de países ya apela¬ 
dos. 

Instrucciones 

— Simplemente hacer lo que el or¬ 
denador diga, tiene las instrucciones 
incorporadas. 

— Si cuando pones el nombre de 
la nación, capital, etc. escribes «L»y 
tu puntuación es 40, 80, 120, 160 ó 
200, cambias de nivel. 

— Si escribes «F» finaliza el juego. 

— Si escribes «R» te da la respues¬ 
ta el ordenador. 
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* INSTRUCCIONES * 

-LíPftRA CAMBIAR 
DE NIVEL 
-F:FINALIZACION 
DEL JUEGO 
-R:PEDIR RES¬ 
PUESTA AL 
ORDENADOR 


CUAL ES OTAN 

ESA ES LA RESPUESTA CORRECTA 


160 


10 KEY t,"PACTO DE VARSQVIA" 

20 REM 

30 REM **************************** 
**** 

40 REM *#** CARLOS REYES MUNCLUS 
**** 

50 REM **************************** 
**** 

60 REM 

70 INK 0,0:BQRDER O:INK 1,11:XNK 2, 
6:INK 3,13 

80 PEN 2:CLS:PRINT:PRXNT TAB(3)"* I 
NSTRUCCIQNES DEL PRIMER NIVEL *" 

90 PEN 1:PPINT:PRINT:PRINT"-Ti ansa 
que peinar el n emití re de la ": PRINT: P 
RINT:PRINT"nación donde as encuentr 
e el cuadrado ":PRINT:PRINT:PRINT"r 


ojo" 

100 PRINT:PRINT:PRINT"Cualquier fal 
ta ortográfica 1 a":PRINT:PRINT:PRIN 
T"interpreto como error" 

110 REM 

120 REM *********** INICIO ******** 
* 

130 REM 

140 XC»-INKEY* 

150 IF XC*-"" THEN GOTO 140 
160 CLS 
170 1-5 

180 INK 1,0:INK 2,0:INK 3,0 
190 PRINT:PEN 3:PRINT TAB(22) 

TRUCCIONES *" 

200 PEN l:PRINT:PRINT TAB<22> 

RA CAMBIAR" 

210 PRINT:PRINT TAB(25)"DE NIVEL" 
220 PRINT:PRINT TAB(22)"-F:FINALIZA 
CIQN" 

230 PRINT:PRINT TAB(25> 

240 PRINT:PRINT TAB(22) 

3 -" 

250 PRINT:PRINT TAB(25)"PUESTA AL 


'* INR 


-L: PA 


DEL JUEGO" 
-R:PEDIR RF 


260 

270 

2Q0 

* 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 


PRINT:PRINT TAB(25)"ORDENADOR" 
REM 

REM *********** DIBUJO ******** 
REM 

PLQT 195,399,1:DRAM 192,393 
PLOT 192,393:DRAW 190,394 
PLQT 190,394:DRAW 180,383 
PLOT 180,383:DRAW 165,358 
PLQT 165,358:DRAW 143,347 
PLOT 143,347:DRAW 142,328 
PLQT 142,328:DRAW 140,326 
PLOT 140,326:DRAW 142,313 
PLQT 142,313:DRAW 153,313 
PLOT 153,313:DRAW 164,325 
PLQT 164,325:DRAW 171,285 


410 

PLQT 

171,285 

DRAW 

177,287 

420 

PLQT 

177,287 

DRAW 

176,290 

430 

PLQT 

176,290 

DRAW 

185,292 

440 

PLQT 

185,292 

DRAW 

188,302 

450 

PLOT 

188,302 

DRAW 

187,303 

460 

PLQT 

187,303 

DRAW 

193,315 

470 

PLQT 

193,315 

DRAW 

197,318 

4S0 

PLQT 

197,318 

DRAW 

187,320 

490 

PLQT 

187,320 

DRAW 

193,322 

500 

PLQT 

193,322 

DRAW 

195,320 

510 

PLQT 

195,320 

DRAW 

200,324 

520 

PLQT 

200,324 

DRAW 

191,331 

530 

PLQT 

191,331 

DRAW 

196,349 

540 

PLQT 

196,349 

DRAW 

207,358 

550 

PLQT 

207,358 

DRAW 

212,374 

560 

PLQT 

212,374 

DRAW 

217,373 

570 

PLOT 

217,373 

DRAW 

215,393 

580 

PLQT 

215,393 

DRAW 

210,399 

590 

PLOT 

197,399 

DRAW 

193,388 

600 

PLQT 

193,388 

DRAW 

194,387 

610 

PLOT 

194,387 

DRAW 

185,377 

620 

PLQT 

185,377 

DRAW 

182,365 

630 

PLQT 

182,365 

DRAW 

184,363 

640 

PLQT 

184,363 

DRAW 

181,359 

650 

PLOT 

181,359 

DRAW 

177,361 

660 

PLQT 

177,361 

DRAW 

174,354 

670 

PLOT 

174,354 

DRAW 

172,329 

680 

PLQT 

172,329 

DRAW 

165,319 

690 

PLOT 

217,373 

DRAW 

222,372 

700 

PLQT 

222,372 

DRAW 

222,368 

710 

PLQT 

222,368 

DRAW 

209,349 

720 

PLQT 

209,349 

DRAW 

210,329 

730 

PLQT 

210,329 

DRAW 

220,323 

740 

PLQT 

220,323 

DRAW 

230,330. 

750 

PLQT 

230,330 

DRAW 

236,330 

760 

PLQT 

236,330 

DRAW 

239,326 

770 

PLQT 

239,326 

DRAW 

243,327 

780 

PLQT 

243,327 

DRAW 

250,324 

790 

PLQT 

250,324 

DRAW 

242,319 

800 

PLQT 

242,319 

DRAW 

230,318 

810 

PLQT 

236,330 

DRAW 

249,353 

820 

PLQT 

249,353 

DRAW 

243,358 

830 

PLQT 

243,358 

DRAW 

244,362 

840 

PLQT 

244,362 

DRAW 

240,368 

850 

PLQT 

240,368 

DRAW 

239,375 

860 

PLQT 

239,375 

DRAW 

240,376 

870 

PLQT 

240,376 

DRAW 

235,385 

880 

PLQT 

235,385 

DRAW 

237,392 

890 

PLQT 

237,392 

DRAW 

232,397 

900 

PLQT 

232,398 

DRAW 

232,399 

910 

PLQT 

?70,399 

DRAW 

279,392 

920 

PLQT 

279,392 

DRAW 

275,382 

930 

PLQT 

275,381 

DRAW 

273,381 

940 

PLQT 

273,381 

DRAW 

250,385 

950 

PLOT 

250,385 

DRAW 

260,376 

960 

PLQT 

260,376 

DRAW 

260,373 

970 

PLOT 

260,373 

DRAW 

263,365 

980 

PLQT 

263,365 

DRAW 

274,363 



990 PLOT 274,363:DRAW 275,366 
1000 PLQT 275,366:DRAW 268,369 
1010 PLOT 268,369:DRAW 269,373 
1020 PLQT 269,373:DRAW 283,371 
1030 PLOT 283,371:DRAW 276,377 
1040 PLQT 276,377:DRAW 283,388 
1050 PLOT 283,388:DRAW 289,387 
1060 PLQT 289,387:DRAW 290,388 
1070 PLOT 290,388:DRAW 290,395 
1080 PLQT 290,395:DRAW 295,399 
1090 PLOT 230,318:DRAW 221,314 
1100 PLQT 221,314:DRAW 226,307 
1110 PLOT 226,307:DRAW 225,295 
1120 PLQT 225,295:DRAW 214,304 
1130 PLOT 214,304:DRAW 210,300 
1140 PLQT 210,300:DRAW 210,281 
1150 PLOT 210,281:DRAW 206,281 
1160 PLQT 206,281:DRAW 200,276 
1170 PLQT 200,276:DRAW 223,274 
1180 PLQT 223,274:DRAW 225,260 
1190 PLOT 225,260:DRAW 223,259 
1200 PLQT 223,259:DRAW 227,243 
121^ PLOT 227,243:DRAW 218,230 
1220 PLQT 218,230:DRAW 215,223 
1230 PLOT 215,223:DRAW 220,220 
1240 PLQT 220,220:DRAW 237,220 
1250 PLOT 237,220:DRAW 242,225 
1260 PLQT 242,225:DRAW 252,213 
1270 PLOT 252,213:DRAW 254,200 
1280 PLQT 254,200:DRAW 261,200 
1290 PLOT 261,200:DRAW 261,195 
1300 PLQT 261,195:DRAW 273,211 
1310 PLQT 273,211:DRAW 276,211 
1320 PLQT 276,211:DRAW 275,211 
1330 PLOT 275,208:DRAW 285,206 
1340 PLQT 285,206:DRAW 281,200 
1350 PLOT 281,200:DRAW 293,193 
1360 PLQT 293,193:DRAW 299,200 
1370 PLOT 299,200:DRAW 304,201 
1380 PLQT 304,201:DRAW 305,205 
1390 PLQT 305,205:DRAW 295,204 
1400 PLQT 295,204:DRAW 287,209 
1410 PLOT 287,209:DRAW 293,210 
1420 PLQT 293,210:DRAW 320,227 
1430 PLOT 261,195:DRAW 258,197 
1440 PLQT 258,197:DRAW 256,186 
1450 PLOT 256,186:DRAW 253,175 
1460 PLQT 253,175:DRAW 255,170 
1470 PLOT 255,170:DRAW 254,168 
1480 PLQT 254,168:DRAW 259,163 
1490 PLOT 259,163:DRAW 277,162 
1500 PLQT 277,162:DRAW 289,172 
1510 PLOT 284,172:DRAW 299,175 
1520 PLQT 299,175:DRAW 307,173 
1530 PLOT 307,173:DRAW 310,170 
1540 PLQT 310,170:DRAW 320,170 
1550 PLOT 255,170:DRAW 245,167 
1560 PLQT 245,167:DRAW 246,166 
1570 PLOT 246,166:DRAW 244,159 
1580 PLQT 244,159:DRAW 243,156 
1590 PLOT 243,156:DRAW 245,155 
1600 PLQT 245,155:DRAW 246,152 
1610 PLOT 246,152:DRAW 258,160 
1620 PLQT 258,160:DRAW 265,160 
1630 PLOT 265,160:DRAW 260,154 
1640 PLQT 260,154:DRAW 246,150 
1650 PLOT 241,150:DRAW 248,130 
1660 PLQT 244,159:DRAW 236,160 
1670 PLOT 236,160:DRAW 229,157 
1680 PLQT 229,157:DRAW 232,154 
1690 PLOT 232,154:DRAW 226,150 
1700 PLQT 226,150:DRAW 222,156 
1710 PLOT 222,156:DRAW 220,154 
1720 PLQT 220,154:DRAW 225,144 
1730 PLOT 225,144:DRAW 225,130 
1740 PLQT 245,167:DRAW 243,163 
1750 PLQT 243,163:DRAW 239,162 
1760 PLQT 239,162:DRAW 233,165 
1770 PLOT 233,165:DRAW 223,163 
1780 PLQT 223,163:DRAW 211,157 
1790 PLOT 206,157:DRAW 205,148 
1800 PLQT 205.148:DRAW 212,137 










1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
21 10 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 


PLOT 

PLQT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLQT 

PLOT 

PLQT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLQT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLQT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLQT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLQT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLQT 

PLOT 

PLQT 

PLOT 

PLQT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLQT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLQT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLQT 

PLOT 

PLQT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 


212,137;DRAM 213,130 
205,148:DRAW 199,153 
199,153:DRAW 200,166 
200,166:DRAW 198,170 
190,170:DRAW 1 73 ,l07 
173,187:DRAW 177,187 
177,107:DRAW 169,198 
169,198:DRAW 165,203 
165,203:DRAW 158,200 
158,200:DRAW 159,197 
159,197:DRAW 156,194 
156,194:DRAW 167,175 
167,175:DRAW 175,167 
175,167:DRAW 180,167 
180,167•DRAW 170 ,ió5 
178,165:DRAW 195,154 
195,154:DRAW 194,150 
194,150:DRAW 185,155 
185,155:DRAW 182,150 
182,150:DRAW 186,145 
186,145:DRAW 181,136 
181,136:DRAW 176,133 
176,133:DRAW 176,136 
176,136:DRAW 179,142 
179,142:DRAW 176,150 
176,150:DRAW 165,161 
165,161:DRAW 160,162 
160,162:DRAW 145,180 
145,180:DRAW 143,189 
143,189:DRAW 136,195 
136,195:DRAW 126,190 
126,190:DRAW 121,186 
121,186:DRAW 103,192 
103,192:DRAW 98,188 
98,188:DRAW 90,100 
98,100:DRAW 95,178 
95,178:DRAW 70,174 
78,174:DRAW 70,164 
70,164:DRAW 73,157 
73,157:DRAW 65,153 
65,153:DRAW 65,150 
65,150:DRAW 57,150 
57,150:DRAW 55,146 
55,146:DRAW 36,150 
36,150:DRAW 26,147 
26,147:DRAW 23,160 
23,160:DRAW 10,160 
18,160:DRAW 10,163 
10,163:DRAW 13,175 
13,175:DRAW 10,175 
10,175:DRAW 12,184 
12,184:DRAW 19,189 
19,189:DRAW 24,204 
24,204:DRAW 25,215 
25,215:DRAW 31,213 
31,213:DRAW 35,215 
35,215:DRAW 71,200 
71,200:DRAW 00,190 
80,190:DRAW 84,191 
84,191:DRAW 98,183 
18,160:DRAW 21,166 
21,166:DRAW 24,168 
24,168:DRAW 25,175 
25,175:DRAW 25,180 
25,180:DRAW 27,180 
27,180:DRAW 37,197 
37,197:DRAW 24,204 
71,200:DRAW 80,220 
80,220:DRAW 76,232 
76,232:DRAW 65,244 
65,244:DRAW 73,249 
73,249:DRAW 82,244 
82,244:DRAW 84,254 
84,254:DRAW 88,253 
88,253:DRAW 86,250 
86,250:DRAW 93,248 
93,248:DRAW 95,250 
95,250:DRAW 103,250 
103,250:DRAW 106,258 
106,258:DRAW 110,259 
110,259:DRAW 113,260 
113,260:DRAW 120,262 
120,262:DRAW 125,273 
125,273:DRAW 129,207 
129,267:DRAW 129 ,275 
129,275:DRAW 137,275 
137,275:DRAW 145,274 
145,274:DRAW 149,277 
149,277;DRAW 147,294 
147,294:DRAW 149,300 
149,300:DRAW 156,303 
156,303:DRAW 160,297 
160,297:DRAW 153,287 


2' 7 4G 

PLOT 

2750 

PLOT 

2760 

PLQT 

2770 

PLOT 

2780 

PLOT 

2790 

PLOT 

2800 

PLOT 

2810 

PLOT 

2820 

PLOT 

2830 

PLOT 

2840 

PLOT 

2850 

PLOT 

2860 

PLQT 

2870 

PLOT 

2880 

PLOT 

2890 

PLOT 

2900 

PLQT 


153,287:DRAW 155,279 
155,279:DRAW 159,279 
159,279:DRAW 160,274 
160,274:DRAW 167,279 
167,278:DRAW 177,270 
177,270:DRAW 195,280 
195,280:DRAW 200,276 
177,270:DRAW j77,246 
177,246:DRAW 185,243 
185,243:DRAW 185,240 
185,240:DRAW 188,238 
188,238:DRAW 188,241 
188,241:DRAW 200,233 
200,233:DRAW 204,231 
204,231:DRAW 212,232 
212,232:DRAW 218,230 
110,259:DRAW 121,243 


m 


• INSTRUCCIONES • 

-L:PARA CAMBIAR 
DE NIVEL 
-r ir iNALnc ación 


HiPEDIR RES 


CUAL ES NORUEGA 

ESA ES LA RESPUESTA CORRECTA 


2910 

PLOT 

121,243 

DRAW 

136,234 

2920 

PLOT 

136,234 

DRAW 

132,224 

2930 

PLOT 

132,224 

DRAW 

121,215 

2940 

PLOT 

121,215 

DRAW 

127,208 

2950 

PLOT 

127,208 

DRAW 

124,201 

2960 

PLOT 

124,201 

DRAW 

126,190 

2970 

PLOT 

131,176 

DRAW 

137,100 

2980 

PLOT 

137,180 

DRAW 

135,170 

2990 

PLOT 

135,170 

DRAW 

132,170 

3000 

PLQT 

132,170 

DRAW 

131,176 

3010 

PLOT 

127,164 

DRAW 

135,166 

3020 

PLQT 

135,160 

DRAW 

137,162 

3030 

PLOT 

137,162 

DRAW 

135,150 

3040 

PLQT 

135,150 

DRAW 

127,148 

3050 

PLOT 

133,142 

DRAW 

127, 

3060 

PLOT 

113,260 

DRAW 

124,258 

3070 

PLOT 

124,258 

DRAW 

129,253 

3080 

PLOT 

129,253 

DRAW 

130,247 

3090 

PLOT 

130,247 

DRAW 

125,240 

3100 

PLOT 

129,253 

DRAW 

137,268 

3110 

PLOT 

137,268 

DRAW 

137,275 

3120 

PLOT 

159,279 

DRAW 

157,268 

3130 

PLOT 

157,268 

DRAW 

159,265 

3140 

PLQT 

159,265 

DRAW 

151,250 

3150 

PLOT 

151,250 

DRAW 

152,244 

3160 

PLOT 

152,244 

DRAW 

155,241 

3170 

PLOT 

155,241 

DRAW 

177,246 

3180 

PLQT 

132,224 

DRAW 

150,218 

3190 

PLOT 

150,218 

DRAW 

164,218 

3200 

PLQT 

164,218 

DRAW 

164,225 

3210 

PLOT 

170,227 

DRAW 

165,233 

3220 

PLOT 

165,233 

DRAW 

162,242 

3230 

PLOT 

127,208 

DRAW 

137,210 

3240 

PLOT 

137,210:DRAW 

139,206 

3250 

PLOT 

139,206:DRAW 

149,212 

3260 

PLQT 

149,212 

DRAW 

145,215 

3270 

PLOT 

145,215:DRAW 

145,220 

3280 

PLOT 

149,212:DRAW 

158,214 

3290 

PLOT 

158,214:DRAW 

165,210 

3300 

PLOT 

165,210 

DRAW 

165,203 

3310 

PLOT 

165,210 

DRAW 

181,209 

3320 

PLOT 

181,209 

DRAW 

190,220 

3330 

PLOT 

190,220 

DRAW 

187,226 

3340 

PLOT 

187,226 

DRAW 

177,229 

3350 

PLOT 

177,229 

DRAW 

175,225 

3360 

PLOT 

175,225* 

DRAW 

167,226 

3370 

PLOT 

190,220 

DRAW 

195,218 

3380 

PLOT 

195,218 

DRAW 

207,224 

3390 

PLOT 

207,224 

DRAW 

215,224 

3400 

PLOT 

211,157: 

DRAW 

207,162 

3410 

PLOT 

207,162 

DRAW 

207,171 

3420 

PLOT 

207,171: 

DRAW 

203,173 

3430 

PLOT 

203,173 

DRAW 

198,169 

3440 

PLOT 

223,163* 

DRAW 

220,174 

3450 

PLOT 

220,174 

DRAW 

223,178 

3460 

PLOT 

223,178: 

DRAW 

219,185 


3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 


PLOT 219,105:DRAW 221,186 
PLOT 221,186:DRAW 230,183 
PLOT 230,183:DRAW 249,108 
PLOT 249,188:DRAW 256,186 
PLOT 221,186:DRAW 220,191 
PLOT 220,191:DRAW 212,192 
PLOT 212,192:DRAW 214,195 
PLOT 214,195:DRAW 205,204 
PLOT 205,204:DRAW 195,200 
PLOT 195,200:DRAW 181,209 
PLOT 205,204:DRAW 212,205 
PLOT 212,205:DRAW 216,215 
PLOT 216,215:DRAW 220,220 
PLOT 100,263:DRAW 110,270 
PLOT 110,270:DRAW 110,276 
PLQT 110,276:DRAW 103,277 
PLOT 103,277;DRAW 105,285 
PLOT 105,285:DRAW 96,308 
PLOT 96,308:DRAW 106,321 
PLQT 106,321:DRAW 95,322 
PLOT 95,322:DRAW 103,330 
PLOT 103,330:DRAW 94,331 
PLOT 94,331:DRAW 83,317 
PLOT 83,317:DRAW 83,307 
PLOT 83,307:DRAW 87,310 
PLOT 87,310:DRAW 86,305 
PLOT 86,305:DRAW 82,301 
PLOT 82,301:DRAW 90,298 
PLOT 90,298:DRAW 90,290 
PLOT 90,290:DRAW 88,286 
PLOT 88,286:DRAW 81,287 
PLQT 81,287:DRAW 81,281 
PLOT 81,281:DRAW 74,276 
PLOT 74,276:DRAW 85,270 
PLOT 85,270:DRAW 65,262 
PLOT 65,262:DRAW 95,263 
PLOT 48,288:DRAW 59,295 
PLOT 59,295:DRAW 55,298 
PLOT 55,298:DRAW 58,307 
PLOT 58,307:DRAW 65,303 
PLOT 65,303:DRAW 65,308 
PLQT 65,308:DRAW 75,310 
PLOT 75,31O:DRAW 80,305 
PLOT 80,305:DRAW 79,297 
PLOT 79,297;DRAW 75,296 
PLOT 75,296:DRAW 71,285 
PLOT 71,285:DRAW 51,282 
PLOT 51,282:DRAW 48,288 
PLOT 1,399,2:DRAW 320,399 
PLOT 320,399:DRAW 320,130 
PLOT 320,130:DRAW 1,130 
PLOT 1,i30:DRAW 1,399 
PLOT 320,399,2:DRAW 639,399 
PLOT 639,399:DRAW 639,130 
PLOT 639,130:DRAW 320,130 
INK 1,11:1NK 2,6:XNK 3,13 
PEN 3:PRINT:PRINT:B=25 
GOTO 6180 
REM 

REM ********* RAMDQM ********* 
REM 

t=45:F=170:G-5:H=5:1=1t 
Q*=BC« 

R=P+1 

IF R>=2 THEN GOTO 6460 
GOSLIB 5870 
GOTO 5920 

E=100:F=215:G=5:H=5:1=11 
Q$=BD* 

T=T+1 

IF T>=2 THEN GOTO 6460 
GOSUB 5870 
GOTO 5920 

E=65:F=290:G=5:H=5:1=11 
Q$=BE$ 

U=U+1 

IF U>=2 THEN GOTO 6460 
GOSUB 5870 
GOTO 5920 

E=90:F=270:G=5:H=5:1=11 

Q*=BFí 

w=w +1 

IF W>=2 THEN GOTO 6460 
GOSUB 5870 
GOTO 5920 

E=160:F=165:G=5:H=5:1=11 
Q$=BG$ 

X = X+1 

IF X>=2 THEN GOTO 6460 
GOSUB 5870 
GOTO 5920 

E=135:F=212:G=5:H=5: 1 = 11 
Q$=BH* 










4400 Y=Y+1 

4410 IF Y>=2 THEN GOTO 6460 
4420 GOSUB 5870 
4430 GOTO 5920 
4440 AB=AB+1 

4450 IF AB>=2 THEN GOTO 6460 
4460 E=117;F=250:G=5:H=5:1=11 
5870 

4470 Q*=BI* 

4480 GOTO 5920 

4490 E=15:F=175:G=5:H=5:1=11 

4500 Q*=BJ* 

4510 Z=Z+1 

4520 IF Z>=2 THEN GOTO 6460 
4530 GOSUB 5870 
4540 GOTO 5920 

4550 E=125:F=260:G=5:H=5:1=11 
4560 Q*=BK* 

4570 AA=AA+1 

4580 IF AA>=2 THEN GOTO 6460 
4590 GOSUB 5870 
4600 GOTO 5920 

4610 E=140:F=240:G=5:H=5s1=11 
4620 QS>=BL* 

4630 AC=AC+1 

4640 IF AC>=2 THEN GOTO 6460 
4650 GOSUB 5870 
4660 GOTO 5920 

4670 E=160:F=250:G=5:H=5:1=11 
4680 Q*=BLL* 

4690 AD=AD+l 

4700 IF AD>=2 THEN GOTO 6460 
4710 GOSUB 5870 
4720 GOTO 5920 

4730 E=170:F=215:G=5:H=5:1=11 
4740 Q*=BM* 

4750 AE=AE+1 

4760 IF AE>=2 THEN GOTO 6460 
4770 GOSUB 5870 
4780 GOTO 5920 

4790 E=190:F=185;G=5:H=5:1=11 
4800 Q*=BN* 

4810 AF=AF+1 

4820 IF AF>=2 THEN GOTO 6460 
4830 GOSUB 5870 
4840 GOTO 5920 

4850 E=175:F=235:G=5:H=5:1=11 
4860 Q$=BQ$ 

4870 AG=AG-f 1 

4880 IF AG>=2 THEN GOTO 6460 
4890 GOSUB 5870 
4900 GOTO 5920 

4910 E=200:F=255:G=5:H=5:1=11 
4920 QS=BP* 

4930 AH=AH+1 

4940 IF AH>=2 THEN GOTO 6460 
4950 GOSUB 5870 
4960 GOTO 5920 

4970 E=230:F=200:G=5:H=5:I=11 
4980 QÍ=BQ* 

4990 AI=AI+1 

5000 IF AI>=2 THEN GOTO 6460 
5010 GOSUB 5870 
5020 GOTO 5920 

5030 E=200:F=210:G=5:H=5:1=11 
5040 Q*=BR* 

5050 AJ=AJ+1 

5060 IF AJ >=2 THEN GOTO 6460 
5070 GOSUB 5B70 
5080 GOTO 5920 

5090 E=200:F=155:G=5:H=5:1=11 
5100 Q«=BS$ 

5110 AK*AK+1 

5120 IF AK>=2 THEN GOTO 6460 
5130 GOSUB 5870 
5140 GOTO 5920 

5150 E=215:F=135:G=5:H=5:1=11 
5160 Q*=BTS 
5170 AL=AL+1 

5180 IF AL>=2 THEN GOTO 6460 
5190 GOSUB 5870 
5200 GOTO 5920 

5210 E=235:F=170:G=5:H=5:1=11 
5220 Q*=BU* 

5230 AM=AM+1 

5240 IF AM>=2 THEN GOTO 6460 
5250 GOSUB 5870 
5260 GOTO 5920 

5270 E=150:F=330:G=5:H=5:1=11 
5280 Q*=BV* 

5290 AN=AN+1 

5300 IF AN>=2 THEN GOTO 6460 
5310 GOSUB 5870 


: GOSU 


5320 GOTO 5920 

5330 E=175:F=305:G=5:H=5:1=11 
5340 Q*=BW* 

5350 AO=AO+1 

5360 IF AQ>=2 THEN GOTO 6460 
5370 GOSUB 5870 
5380 GOTO 5920 

5390 E=225:F=350:G=5:H=5:1=11 
5400 Q$=BX$ 

5410 AP=AP+ 1 

5420 IF AP>=2 THEN GOTO 6460 
5430 GOSUB 5870 
5440 GOTO 5920 

5450 E=260:F=260:G=5:H=5:1=11 
5460 Q*=BY* 

5470 AQ=AQ+1 

5480 IF AQ>=2 THEN GOTO 6460 
5490 GOSUB 5870 
5500 GOTO 5920 

5510 IF L>=40 THEN GOTO 5530 
5520 GOTO 6810 

5530 R=0:T*0:U=0:W=0:X=0:Y=0:Z=0:AB 
=0:AA=0:AC=0:AD=0:AE=0:AF=0:AG=0:AH 
=0: A 1=0: AJ=0: AK=0: AL=0: AM=Q: AN=0: AO 
=0:AP=0:A0=0 

5540 IF CA=1 THEN GOTO 5620 
5550 IF CA=2 THEN GOTO 5680 
5560 IF CA=3 THEN GOTO 5740 
5570 IF CA=4 THEN GOTO 5790 
5580 IF CA=5 THEN GOTO 5430 
5590 REM 

5600 REM ********** NIVELES ******* 
*** 

5610 REM 

5620 PEN 2:CLS:PR1NT:PRINT TAB(2)"* 
INSTRUCCIONES DEL SEGUNDO NIVEL *" 
5630 PEN 1:PRINT:PRINT:PRINT"-Ti ana 
s que poner el nombre de la":PRINT: 
PRINT:PRINT"capital donde se encuen 
tre el cuadrado":PRINT:PRINT:PRINT” 
rojo":PRINT:PRINT:PRINT"cualquier f 
alta ortográfica la ":PRINT:PRINT:P 
RINT"interpreto como error" 

5640 ZS$=INKEY* 

5650 IF ZS*="" THEN GOTO 5640 
5660 CA=2:CC*="CAPI TAL" 

5670 GOTO 160 

5680 PEN 2:CLS:PRINT:PRINT TAB(2)"* 
INSTRLJCIONES DEL TERCER NIVEL": PEN 


» INSTRUCCIONES DEL CUARTO NIUEL * 

Tienes que poner el noeibre de 
la organización Militar de la nación 
donde se encuentre el cuadrado rojo 
Cualquier falta ortográfica 
la interpreto como error 


1:PRINT:PRINT:PRINT"-Ti enes que po 
ner el nombre de 1 a":PRINT:PRINT:PR 
INT"nacion-capital donde se encuent 
re el":PRINT:PRINT:PRINT"cuadrado r 
ojo" 

5690 PRINT:PRINT:PRINT"cualquier fa 
lta ortográfica 1 a":PRINT:PRINT:PRI 
NT"interpreto como error" 

5700 ZX*=INKEYS 

5710 IF ZX*="" THEN GOTO 5700 

5720 CA=3 

5730 GOTO 160 

5740 CLS:PRINT:PEN 3:PRINT TAB<2>"« 
INSTRUCCIONES DEL CUARTO NIVEL *": 
PRINT:PRINT:PEN 1:PRINT"Tienes que 
poner el nombre de":PRINT:PRINT"!a 
organización militar de la nación": 
PRINT:PRINT"donde se encuentre el c 
uadrado rojo" 

5750 PRINT:PRINT"Cualquier falta or 
tografica":PRINT:PRINT"1 a interpret 
o como error" 



5760 CA=4 

5770 PS$=INKEY*:IF PS*="" THEN GOTO 
5770 

5780 GOTO 160 

5790 CLS:PRINT:PEN 3:PRINT TABÍ2)"* 
INSTRUCCIONES DEL QUINTO NIVEL *": 
PRINT:PRINT:PEN 1:PRINT "Tienes que 
poner el nombre de":PRINT:PRINT"1a 
organización politica de la nación 
":PRINT:PRINT"donde se encuentre el 
cuadrado rojo" 

5800 PRINT:PRINT"Cualquier falta or 
tografica":PRINT:PRINT"1 a interpret 
o como error" 

5810 CA=5 

5820 CR*=INKEYS:IF CR*="" THEN GOTO 
5820 

5830 GOTO 160 
5840 REM 

5850 REM ***** PINTAR CUADRADO **** 
5860 REM 

5870 FOR J=1 TO G 

5880 PLOT E,F,2:DRAW E+H, F 

5890 F=F+1 

5900 NEXT J 

5910 RETURN 

5920 REM 

5930 REM ******** PREGUNTA ******** 
5940 REM 

5950 LOCATE 1,19:INPUT"CUAL ES ", K* 
5960 AZ=AZ+1 

5970 IF Kí="L" THEN GOTO 6010 
5980 IF KS="F" THEN GOTO 6090 
5990 IF K*="F" THEN GOTO 6100 
6000 GOTO 6120 

6010 IF LL=40 THEN GOTO 5620 
6020 IF LL=BO THEN GOTO 5680 
6030 IF LL=120 THEN GOTO 5740 
6040 IF LL=160 THEN GOTO 5790 
6050 IF LL=200 THEN GOTO 6810 

6060 LOCATE 1,19:PRINT"PUEDES CAMBI 
AR DE NIVEL CUANDO TU ":PRINT:PRINT 
"PUNTUACION SEA 40,80,120 o 160":F 
OR HJK=1 TO 2000:NEXT:LOCATE t,19 : p 
RINT" 

":LOCATE 1,21:PRINT" 

": LOC 

ATE 1,19 
6070 R=R-1 
6080 GOTO 5920 
6090 CLS:END 

6100 PEN t: PRINT: PRINT Q4>:F0R S=1 T 
O 2500:NEXT S:IF AZ=23 THEN GOTO 55 
10 

6110 GOTO 6740 

6120 IF K*=Q* THEN GOTO 6140 
6130 IF KÍOQ* THEN GOTO 6160 
6140 PRINT:PRINT"ESA ES LA RESPUEST 
A CORRECTA":PEN 1:SOUND 1,100,2,7:L 
L=LL+20:PRINT:PRINT:PRINT TAB<34> L 
L:PEN 3:FOR LLA=1 TO 2500:NEXT:IF L 
L>=200 THEN GOTO 6820:IF AZ=23 THEN 
GOTO 5510 
6150 GOTO 6740 

6160 PRINT:PRINT"NO,LA RESPUESTA CO 

RRECTA ES":PEN 1:SOUND 1,800,25,7:P 

RINT:PRINT Q*:PEN 1:PRINT TAB <34) 

LL:PEN 3:INK 0,0:B0RDER 0:F0R V=1 T 

O 2500:NEXT V:INK 0,0:B0RDER O:IF A 

Z=23 THEN GOTO 5510 

6170 GOTO 6740 

6180 IF CA=1 THEN GOTO 6260 

6190 IF CA=2 THEN GOTO 6290 

6200 IF CA=3 THEN GOTO 6320 

6210 IF CA=4 THEN GOTO 6390 

6220 IF CA=5 THEN GOTO 6420 








6230 REM 

6240 REM ********** DATOS ********* 
** 

6250 REM 

6260 BC*="ESPAÑA":BD*="FRANCIA"sBE* 
= " IRLANDA”¡BF*="INGLATERRA":BG*="IT 
ALIA":BH*="SUIZA":BI*="BELGICA":BJ* 
= "PORTUGAL":BK*="HOLANDA":BL *="ALEM 
ANIA OCCIDENTAL":BLL*="ALEMANIA ORI 
ENTAL " : BM*= " AUSTRIA " : BN*= " YUGOSLAVI 
A":B0*= »CHECOSLOVAQUIA":BP*="POLONI 
A" 

6270 BQ*="RUMANIA":BR*="HUNGRIA":BS 
*="ALBANIA":BT*="GRECIA":Bilí="BULGA 
RIA": BV*= NORUEGA" : BW*= "SIJEC IA":BX í 
="FINLANDIA":BY*="RUSIA" 

6280 GOTO 6460 

6290 BC*="MADID":BD*="PARIS":BE*="D 
UBLIN":BF*="LONDRES":BG*="ROMA":BH* 
= "BERNA":BI*="BRUSELAS":BJ *="LISBOA 
":BK*="AMSTERDAM":BL *="BONN":BLL *=" 
BERLIN":BM*="VIENA » 

6300 BN*«"BELGRADO"s BO*="PRAGA":BPí 
="VARSQVIA":BQ*="BUCAREST":BR*="BUD 
APEST":BS*="TIRANA" 

631O BT*="ATENAS":BU*="SOFIA":BVí=" 
OSLO" : BUI*="ESTOCOLMO" : BX*="HELSINKI 
":BY*="MOSCU":GOTO 6460 
6320 BC*="ESPANA-MADRID":BD*="FRANC 
IA-PARIS":BE*="IRLANDA-DUBLIN":BF*= 
"INGLATERRA-LONDRES":BG*="ITALIA-RO 
MA":BH*="SUIZ A-BERNA":BI*="BELGICA¬ 
RRUSEL AS" :BJ*="PORTUGAL —LISBOA":BK* 
="HOLANDA-AMSTERDAM":BL*="ALEMANIA 
OCCIDENTAL-BONN" 

6330 BLL*="ALEMANIA ORIENTAL-BERLIN 
"í BM*="AUSTRIA-VIENA" 

6340 BPí="POLONIA-VARSOVIA":BQ*="RU 
MANIA-BUCAREST" 

6350 BR$="HUNGRIA-BUDAPEST":BS*="AL 
BANIA-TIRANA" 

6360 BNí="YUGQSLAVIA-BELGRADO":B0*= 


"CHECOSLOVAQUIA-PRAGA" 

6370 BT*="GRECIA-ATENAS":BU*="BULGA 
RI A-SOF IA " : BV*= " NORUEGA - OSLO " : BUJÍ= " 
SUECIA-ESTOCQLMO":B X *="FINLANDIA-HE 
LSZNKX”:BY*=”RUSIA-MOSCU" 

6380 GOTO 6460 

6390 BC*="OTAN":BDí="OTAN":BE*="NUL 
O" : BF*="OTAN" : BG*="r»TAN" : BH*="NULO" 

:BI*="OT AN":BJ*="OTAN":BK*="OTAN":B 
L*="NULO":BLL*="PACTO DE VARSOVIA": 
BM$="NULO":BN*="NULO" 

6400 B0*="PACTO DE VARSOVIA":BP*="P 
ACTO DE VARSOVIA":BQ*="PACTO DE MAP 
SOVIA":BR*="PACTO DE VARSOVIA":BS*= 
"PACTO DE VARSOVIA":BT*«"NULO":BU*= 
"PACTO DE VARSOVIA":BV*="OTAN":BWí= 
"NULO":BX*="NULO":BY*="PACTO DE VAR 
SOVIA" 

6410 GOTO 6460 

6420 BC*="CEE":BD*="CEE":BE*="CEE" : 
BF*="CEE":BG*="CEE":BH*="NULO":BI*= 
"CEE" : B<I*="CEE" : BK*="CEE" : BL*="CEE" 
:BM*="NULO":BN*="NULO":BOí="COMECON 
":BP*="COMECON":BQ*="COMECON":BR*=" 
COMECON":BS*="NULO":BT*="CEE":BU*=" 
COMECON" 

6430 BV*="NULO":BW*="NULO":BX *="NUL 
O":BY*="COMECON" 


6440 

GOTO 6460 



6450 

REM 




6460 

A- 

INT'RNDíl)*B) 


6470 

IF 

A= 1 

THEN 

GOTO 

4080 

6480 

IF 

A=2 

THEN 

GOTO 

4140 

6490 

IF 

A=3 

THEN 

GOTO 

4200 

6500 

IF 

A=4 

THEN 

GOTO 

4260 

6510 

IF 

A=5 

THEN 

GOTO 

4320 

6520 

IF 

A=6 

THEN 

GOTO 

4380 

6530 

IF 

A=7 

THEN 

GOTO 

4440 

6540 

IF 

A=8 

THEN 

GOTO 

4490 

6550 

IF 

A=9 

THEN 

GOTO 

4550 

6560 

IF 

A=10 THEN GOTO 4610 


6570 

IF 

A=1 1 

THEN 

GOTO 

4670 

6580 

IF 

A= 12 

THEN 

GOTO 

4730 

6590 

IF 

A=13 

THEN 

GOTO 

4790 

6600 

IF 

A= 1 4 

THEN 

GOTO 

4850 

6610 

IF 

A=15 

THEN 

GOTO 

4910 

6620 

IF 

A= 16 

THEN 

GOTO 

4970 

6630 

IF 

A=17 

THEN 

GOTO 

5030 

6640 

IF 

A=í 8 

THEN 

GOTO 

5090 

6650 

IF 

A= 19 

THEN 

GOTO 

5150 

6660 

IF 

A=20 

THEN 

GOTO 

5210 

6670 

IF 

A=21 

THEN 

GOTO 

5270 

6680 

IF 

A=22 

THEN 

GOTO 

5330 

6690 

IF 

A=23 

THEN 

GOTO 

5390 

6700 

IF 

A=24 

THEN 

GOTO 

5450 

6710 

REM 





6720 REM ************ RND ********* 
** 

6730 REM 

6740 FOR DE=1 TO G 

6750 PLOT E,F-5,O:DRAM E+H,F-5 

6760 F=F+1 

6770 NEXT 

6700 LOCATE 1,19:PRINT" 

6790 GOTO 4040 
6800 GOTO 6460 
6810 CLS:END 
6820 CLS:RUN 



no reolicen el traba/o duro, M.H. AMS- 
JUAD lo hoce por ti. Todos los listodos que incluyan 
este logotipo se encuentran a tu disposición en un cas¬ 
sette mensual, solicítanoslo. 


wm. 


.Correo,,,, más rápido,,, 






Con el fin de acelerar lo más posible el correo, y poder resolver o contestar a to¬ 
das las dudas y sugerencias que llegan a nuestra redacción, a partir de esta semana 
os rogamos, en beneficio de todos, consignar en el sobre, en lugar bien visible, una 
de las denominaciones siguientes: 

— Suscripciones AMSTRAD. Para todos aquellos casos relacionados con petición de 
cintas, números atrasados, formalización de suscripciones, devoluciones etc... 

— Mercado Común AMSTRAD. Compras, ventas, intercambios, clubs... 

— Sin duda alguna AMSTRAD. Para que nos enviéis todas vuestras dudas. 

— Serie Oro AMSTRAD. Para los programas que nos enviéis para su publicación. 

— Sugerencias AMSTRAD. Para vuestras críticas, sugerencias o cualquier opinión 
que queráis vertir sobre la revista. 















Paquete integrado de gestión que le permite a Vd., de forma fácil y optimizando el \ 
tiempo, la gestión global de su empresa. 

Este paquete incorpora los programas de CONTABILIDAD. FACTURACION y 
CONTROL DE STOCKS además de un programa de CONTROL DE PEDIDOS y todo Ai 

de forma interactiva. Controle su empresa por sólo 29.900 pts. 


O r 


ventas! 

ESTADÍSTICA! 

^- 1 - V~ 1 

\ A.4\Q> - 


ía.aas - \ í.«>4 ■ 


Contabilidad 


Contabilidad de fácil manejo y 
de gran potencia que permite 
trabajar con cuentas de hasta 
cuatro niveles, con capacidad 
según dískette de 500/1000 
cuentas y de 2.000/10.000 
asientos. 

Permite modificar o dar de baja 
apuntes ya integrados en el 
Mayor, programaciones de 
cierres, ficheros de 
Contabilidad y Cuenta de 
Explotación, ejecución de 
balances comparativos, 
reenlazándolos por meses, 
clave acceso restringido, etc... 


19.900 pías. 

disponibles para: 

Asimismo, Contabilidad disponible para 

Filis INFORMATICA 

STRIBUIDOR EXCLUSIVO DE 


Facturación 


Programa de gran agilidad y 
rapidez que incorpora el 
Control de Clientes, con gran 
capacidad de datos, Artículos, 
Abarañes, Facturas y recibos. 

Generación automática y 
manual de documentos, 
valoración, a voluntad de los 
abarañes, todo tipo de listado, 
incluido el del IVA de las 
facturas emitidas para la 
declaración de Hacienda, etc... 


Control 
de stocks 


Gran capacidad de datos, le 
permitirán a Vd. llevar con 
claridad y sencillez el control 
de su stock. 

El programa le permite llevar 
un libro de entradas/salidas, 
reorganizarlo, hacer listados de 
stocks..., le avisará de los límites 
de stocks, mínimo y máximo 
por artículo, etc... 

Todo para la llevanza de su 
almacén. 


DIS 


IVA'NO INCLUIDO 


Condicionas especiales r>. 
si t ene alguna dificultad 

ISOktAí • 


fl¬ 


or s.\ 


es para distribuidores 


I en obtenerlos diríjase a 


15.500 pías. 


r-s - 





























Control del crt 


. CRT? Pues, sencilla "„ 

Pero, ¿ V Je ,cathode Roy l ub f¿¡¡Slmente, «Tubo 
iniciales de£ a, l' 0 decir, Mu^os me „os 

nüe ^fá»^ 

,éC A n msVrod, due tamban es un^ o r cualq ulera. 

catódicos como el o 


de SALIDA correspondiente a la dirección 
mencionada.» 


e lo anterior se deduce 
ue el articulo que presentamos está dedica- 
o a cómo controlar la pantalla. Y efectiva¬ 
mente, así es, pero desde un punto de vista 
distinto al habitual del BASIC y, sin embargo, 
sin utilizar código máquina ni PEEK's ni PO- 
KE's, a menos que, por razones de velocidad 
de ejecución, se decida emplear otros medios 
más rápidos que sólo son posibles desde có¬ 
digo máquina, y para los que la base teórica 
que expondremos seguirá siendo igualmente 
válida. 

Con las órdenes existentes en BASIC pode¬ 
mos hacer un montón de cosas «EN la pan¬ 
talla», pero también hay un comando que 
nos permitirá hacer otras tantas «CON la pan¬ 
talla». Y dicho comando no es, ni más ni me¬ 
nos, que el comando «OUT». 


EN LA PANTALLA 
Y CON LA PANTALLA 


El comando OUT generalmente pasa desa¬ 
percibido para el programador normal, sobre 
todo porque en los manuales no se explica cuál 
puede ser su utilidad práctica, limitándose a 
dar en dos líneas una escueta descripción de 
la acción que realiza y nada más. Transcribi¬ 
mos para aquéllos que no tengan el manual 
a mano: 

«OUT < número de portal >, < expresión 
entera > 

Envía el valor del parámetro entero al portal 


Aun cuando tan sucinta definición es total¬ 
mente exacta, lo menos que puede ocurrir es 
que nos deje absolutamente indiferentes si no 
se complementa con un ejemplo o con una ex¬ 
plicación de lo que es un portal de salida. 

Intentaremos dar un poco de luz sobre el te¬ 
ma a lo largo del artículo, pero antes, y para 
desperezar los dedos, teclearemos en modo 
directo las siguientes instrucciones, operando 
en MODE 1 y procurando no equivocarse: 

OUT &BC00, 1 [ENTER] OUT &BD00, 20 
[ENTER] 

¿Qué es lo que ha ocurrido? Aparentemen¬ 
te, se han insertado líneas en blanco entre las 
que acaba de escribir, pero intente escribir al¬ 
go, de más de 20 caracteres, o moverse con 
el cursor más allá de la columna 20 y verá có¬ 
mo el cursor salta a la primera columna de la 
línea siguiente. ¡EUREKA! Pensará que hemos 
descubierto el comando WINDOW, sólo que 
más complicado. PUES NO. Puede compro¬ 
barlo tecleando MODE 1, con lo que volve¬ 
ríamos a la pantalla normal, pero que en es¬ 
ta ocasión no sirve de nada. Para ver lo que 
ha sucedido teclee: 

BORDER 15 [ENTER] 

Esta orden pone el borde la pantalla de co¬ 
lor naranja y, en estas circunstancias, además, 
la mitad derecha de la pantalla también apa¬ 
recerá de este color, lo que quiere decir que 
la pantalla útil se ha reducido a la mitad. Pa¬ 
ra ser más exactos, los 40 caracteres de una 
línea normal ahora se distribuyen en dos líneas 
de 20 caracteres, es decir, la pantalla de 
25 x 40=1.000 caracteres ahora se ha trans¬ 
formado en 50 líneas de 20 caracteres. Ima¬ 
gínese la pantalla como una masa de letras 
que comprimimos horizontalmente: las letras 
al no poder salirse de la pantalla, se despla¬ 
zarán hacia abajo, reestructurando la visua- 
lización, pero sin perderse ni una, solamente 
ue no las vemos. Compruébelo desplazan- 
o el cursor por debajo de la última línea visi¬ 
ble, pulse ESCAPE y siga bajando el cursor 
hasta que empiece el scroll hacia arriba, con 
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lo que aparecerá el «*Break*» que no veía¬ 
mos antes. 

Para volver a la pantalla normal escriba: 
OUT &BC00,1: OUT &BD00,40 [ENTER] 

o resetee el ordenador. 

Ahora se comprenderá la diferencia entre 
hacer cosas «EN la pantalla» y «CON la pan¬ 
talla», puesto que la orden OUT afectará a to¬ 
da la pantalla y no a zonas de la misma. 

Antes de que se le ocurra empezar a expe¬ 
rimentar por su cuenta haciendo OUT's a dies¬ 
tro y siniestro, estamos en la obligación mo¬ 
ral de advertir que un OUT de cualquier va¬ 
lor en cualquier portal de salida, sin un ligero 














conocimiento de lo que se hoce, puede pro¬ 
ducir un «hermoso» bloqueo del sistemo, sien¬ 
do necesario desconectar el ordenador, y si 
no pruebe con: 

OUT &BC00,0: OUT &BD00,1 


UN POCO DE TEORIA 


Todos los ordenadores están compuestos fí¬ 
sicamente por una serie de elementos que nos 
permiten trabajar con él. El elemento más im¬ 
portante es el microprocesador o Unidad de 


Control de Proceso (CPU), que en los Ams- 
trads es el renombrado Z80A, y que no es 
más que una pastillita de silicio de unos cuan¬ 
tos milímetros cuadrados conteniendo cerca de 
8.000 transistores, interconectados de tal ma¬ 
nera que posibilitan hacer cosas tales como ju¬ 
gar a marcianitos o llevar la contabilidad de 
una empresa. 

Pero decimos que «posibilitan» porque, a pe¬ 
sar de la potencia del microprocesador, éste 
por sí solo no es incapaz de hacer absoluta¬ 
mente nada si no se encuentra conectado con 
otros dispositivos como un teclado, una pan¬ 
talla o la memoria; mediante los cuales los po¬ 
demos dar órdenes o recibir los resultados de 
una serie de operaciones o almacenar datos, 
respectivamente. 

El Z80A es el cerebro que controla, directa 
o indirectamente, todas las acciones que rea¬ 
liza el ordenador, y entre ellas se encuentran: 
leer el teclado, manejar la pantalla, generar 
sonidos, controlar el cassette, enviar datos a 
la impresora, leer y escribir en la memoria, etc. 

Nos centraremos en el área del control de 
la pantalla. El Z80 maneja la pantalla indirec¬ 
tamente a través de un chip o circuito integra¬ 
do llamado CRTC, cuyas siglas corresponden 
a «Cathode Ray Tube Controller» 
(Controlador del Tubo de Rayos Catódicos). 

El CRTC realiza las funciones de manteni¬ 
miento de la visualización en pantalla, contro¬ 
lando las dimensiones y la posición de la zo¬ 
na de exposición de información en la super¬ 
ficie del Tubo, y generando las direcciones de 
memoria donde están los datos de pantalla, 
entre otras cosas. 

Todo esto se consigue utilizando el conteni¬ 
do de los 18 registros de que dispone el CRTC. 
Podemos entender un registro como un dispo¬ 
sitivo cuya misión es retener una información 
para posteriormente ser tratada por el CRTC. 
Cada uno de estos registros puede contener 
un número de un byte de longitud, esto es, con 
un valor entre cero y 255. 

Modificando el contenido de los registros del 
CRTC modificaremos las características de la 
pantalla, según hemos podido comprobar. ¿Y 
cómo modificar un registro? Nada más senci¬ 
llo, con la orden OUT. 

Como ya hemos dicho, el CRTC es un circuito 
conectado al microprocesador, y éste se co¬ 
munica con aquél a través de unos canales que 
se encuentran en los llamados PORTALES de 
SALIDA. Un PORTAL no es más que una di¬ 
rección de memoria donde se depositan da¬ 
tos para ser enviados al dispositivo correspon¬ 
diente a ese número de portal. Explicándolo 
de otra forma, hacer un OUT de un Número 
a un Portal es como enviar una carta con un 
mensaje a una persona. El OUT es la acción 
de enviar la carta; el Número sería el mensa¬ 
je, y el Portal sería la dirección de esa perso¬ 
na. 

Necesitamos, pues, conocer la dirección del 
portal de salida correspondiente al Controla¬ 
dor del Tubo de Rayos Catódicos para poder 
enviarle los datos que queramos. 


programaccion 


El CRTC tiene dos portales o direcciones, ca¬ 
da uno de los cuales tiene una misión especí¬ 
fico. El primer portal se utiliza para indicarle 
al CRTC el número del registro que queremos 
seleccionar. Y el segundo portal es por don¬ 
de le enviaremos el valor al registro previa¬ 
mente seleccionado. Las direcciones son: 
&BC00: para seleccionar número de registro. 
&BD00: para modificar contenido del registro. 

Aun cuando hemos dicho que el CRTC tie¬ 
ne 18 registros, el sistema sólo permite acce¬ 
der a los primeros 16, por lo que el número 
que tendremos que enviar al primer portal del 
CRTC, el &BC00, será un número entero en¬ 
tre cero y 15, inclusive, por aquello de que los 
ordenadores empiezan a contar desde cero. 
Lo haremos del siguiente modo: 

OUT &BC00, < num. reg > siendo num. 
reg > un valor entre 0 y 15. 

para modificar el contenido del registro selec¬ 
cionado: 

OUT &BD00, < dato > siendo < dato > un 
valor entre 0 y 255. 

En la tabla 1 damos los nombres de cada 
uno de los registros, así como los valores es¬ 
tándar y los valores mínimos y máximos en cu¬ 
ya gama no se bloqueara el ordenador. In¬ 
sistimos en que cualquier valor fuera de esta 
gama nos obligará a tener que desconectar 
nuestro Amsfrad. 

También existen portales de ENTRADA al 
microprocesador, donde recoger datos me¬ 
diante la orden del BASIC IN, pero no los tra¬ 
taremos por salirse del tema que abordamos. 
Unicamente decir al respecto que un uso ina¬ 
propiado de las entradas puede ocasionar 
daños físicos a los circuitos del ordena¬ 
dor. 

Comentar todos y cada uno de los efectos 
que se producen al modificar los registros del 
CRTC con los distintos valores posibles es prác¬ 
ticamente imposible. Por otra parte, envian¬ 
do OUT's en modo «directo» y de forma de¬ 
sordenada nos encontraremos con que es una 
forma un tanto pesada de investigar, y otras 
veces habremos cambiado tantos registros que 
ya no sabremos cómo volver a la pantalla nor¬ 
mal. 

Por todo ello, creemos que la mejor solución 
está en facilitar las cosas con un programa que 
nos permita manejar los registros a nuestro an¬ 
tojo, pudiendo recuperar la pantalla normal 
cuando queramos y ver qué registros hemos 
modificado hasta ese momento, para, de es¬ 
ta manera, sacar nuestras propias conclusio¬ 
nes de cómo inciden los diferentes parámetros 
enviados al CRTC, sobre todo, pensando en 
el dicho de que una imagen vale más que mil 
palabras. Todo esto nos lo permitirá el pro¬ 
grama «CONTROL DEL CRT» que luego co¬ 
mentaremos. 
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Volviendo sobre el famoso dicho, pruebe a 
teclear el siguiente programa que nos mues¬ 
tra una forma más vistosa de presentar las 
pantallas en nuestros programas: 

10 BORDER 15: MODE 0 

20 FOR a=40 TO 0 STEP-1: GOSUB 60: 

NEXT: '— Recoge Pantalla 

30 GOSUB 70: '—Pintar Pantalla 

40 FOR a = 0 TO 40: GOSUB 60: NEXT: '- 

—Extiende Pantalla 

50 CALL &BB06: GOTO 20:'—Espera pul¬ 
sación y vuelve a empezar 
60 CALL &BD19: OUT &BC00,1: OUT 
&BD00,a: RETURN: 'Ejecuta OUT's 
70 t=TIME 
80 CLG RND* 13 
90 WHILE TIME < t+300 
100 DRAW 640*RND, 400*RND, 13*RND: 
TAG: PRINT CHR$ (RND'26 + 64); 
110WEND 
120 RETURN 

A los que posean el juego BEACH HEAD 
les resultará familiar esta forma de recoger la 
pantalla. Está basada en variar el contenido 
del registro 1 del CRTC entre los valores 40 
y 0, mediante un bucle FOR... NEXTSTEP— 1, 
para recoger la pantalla, y al revés, entre 0 
y 40, para extenderla de nuevo. 

Antes de cambiar el registro con los OUT's 
correspondientes, hacemos una llamada al 
FIRMWARE, en &BD19, para sincronizar el 
cambio que se va a realizar con el haz de ba¬ 
rrido de pantalla, consiguiéndose una mayor 
suavidad en el movimiento. Es lo mismo que 
hacer un FRAME en el CPC 6128. Para ver la 
necesidad del CALL &BD19, pruebe a quitar¬ 
lo. 


Otro de los ejemplos que se me ocurren co¬ 
mo consecuencia de indagar con los registros 
del CRTC utilizando el programa «CONTROL 
CRT» es el siguiente: 

10 FOR d = l T0 3: READ men$ 

20 men$=SPACE$ ((40-LEN (men$))/2)+ 

+ men$: '—Centra mensaje 

30 MODE 1 

40 LOCATE 1,20 

50 FOR a = 1 TO 40 

60 letra$=MID$ (men$,a,l) 

70 GOSUB 140: '—Ejecuta OUT's 
80 PRINT letra$; 

90 NEXT 

100 FOR r=0 to 1500: NEXT:'—Retardo 
110 LOCATE 1,25: PRINT STRING$ (20,10): 
'—Sube mensaje 
120 NEXT 
130 RUN 

140 CALL &BD19: OUT &BC00,13: OUT 
&BD00,a: RETURN 

150 DATA MICROHOBBY AMSTRAD ESPE¬ 
CIAL 

160 DATA Presenta: 

170 DATA 'CONTROL DEL CRT' 

Esta vez se modifica el registro 13, que con¬ 
tiene el byte bajo de la dirección de comien¬ 
zo de rastreo de la memoria de pantalla, por 
lo que, al ir desplazando dicha dirección con 
el comando OUT, se desplaza a su vez la pan¬ 
talla, produciendo un suave SCROLL horizon¬ 
tal de la pantalla. 

Esta última técnica, en combinación con 
unos cuantos conocimientos de código máqui¬ 
na para obtener la rapidez necesaria, nos per¬ 
mitiría construir un programa que utilizara la 
pantalla de su Amstrad como un tablón de 
anuncios electrónico a todo color, como ya he 
podido ver en algunos sitios. 


f FUNCIONAMIENTO 
DEL PROGRAMA 
«Control del CRT» 

Antes de hacerlo correr es conveniente sal¬ 
varlo en cinta/disco por si hubiera algún OUT 
perdido que nos lo echara todo a perder. 

Primero tenemos una pantalla de presenta¬ 
ción en la que se explica la función y el mane¬ 
jo del programa, para, después de ver una pe¬ 
queña demostración del uso del CRTC, apa¬ 
recer la pantalla de trabajo con un informe del 
estado actual de los registros, el valor están¬ 
dar entre corchetes y el nombre de los mismos. 

Abajo, a la derecha, y recuadrado, tenemos 
los dos Modos de funcionamiento, aparecien¬ 
do en vídeo inverso el modo activo. 

En modo «Ejecutar» podemos modificar 
los registros sin que se observe su efecto, has¬ 
ta pulsar las teclas CTRL+E. 

En modo «Inmediato», nada más modi¬ 
ficar un registro, se ejecuta la acción inmedia¬ 
tamente. 

Se puede cambiar de modo en cualquier mo¬ 
mento pulsando las teclas SHIFT. 

En cuanto seleccionamos un registro, su 
nombre aparece en vídeo inverso y el progra¬ 
ma espera la pulsación de una de las teclas 
posibles que se visualizan en la última línea y 
que son: 

«V»: Visualiza el rango permitido y espera 
la entrada del dato a enviar al registro. 

«Cursor Arriba/Cursor Abajo»: Incremen- 
ta/Decrementa el contenido del registro en una 
unidad. 

Cualquier otra tecla, así como un valor fuera 
de rango, anula la acción, produciendo una 
señal acústica de error. 

En la pantalla se informa con un asterisco 
del último registro modificado, y, en vídeo in¬ 
verso aparecerán los valores que no sean es¬ 
tándar, al objeto de una más fácil localización. 

Si se llega a perder el control de la panta¬ 
lla, pulsando la tecla «N» volvemos a la pan¬ 
talla normal, apareciendo el mensaje: PULSE 
UNA TECLA PARA VOLVER AL ESTADO AN¬ 
TERIOR. 

Si en ese momento estamos en modo Inme¬ 
diato y pulsamos cualquier tecla, excepto 
SHIFT, volveremos al caso anterior; pero si pul¬ 
samos SHIFT, cambiamos al modo Ejecutar, 
por lo que, al pulsar otra tecla, se mantiene 
ia pantalla normal, pudiendo restaurar los re¬ 
gistros al valor que queramos hasta que pul¬ 
semos las teclas CTRL+E para observar el 
efecto que se produce. 

Con la tecla «X» veremos cuatro de las infi¬ 
nitas posibilidades que nos presenta el mane¬ 
jo del CRTC. 

Por fin, pulsando «T» termina el programa 
restaurando los valores normales del CRTC. 

Finalizar aclarando que el registro r3, An¬ 
cho del Sincronismo, es muy inestable, por lo 
que el programa no permite acceder al mis¬ 
mo. No obstante, el que quiera aventurarse 
sólo tiene que modificar la línea 710 quitan¬ 
do la condición «OR tee = 4». ¡Ah!, y que 
alterar los registros que se refieren al Cursor 
no produce efecto aiguno. 
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ib '* . * 

20 '* CONTROL CRT * 

30 '* por J.F.Bayo * 

40 '* Mayo 1986 * 

50 '*.-.* 

60 : 

70 PRESENTACION 

80 : 

90 MODE 2:UIND0U 8,80,1,25 
100 ¡$=CHR*<24) 

110 PRINT ,i* SPC(7) "*** CONTROL 
DEL CRT ***" SPC(7)i$:PRINT 
120 PRINT" El programa permite est 
udiar los efectos que se producen e 
n la" 

130 PRINT'pantalla al cambiar el co 
ntenido de los registros del CRTC ( 
Con-" 

140 PRINT"trolador del Tubo de Rayo 
s Catódicos) utilizando la orden OU 
T de" 

150 PRINT"BASIC.":PRINT 
160 PRINT" Para modificar un regis 
tro pulsamos la tecla correspondien 
te a" 

170 PRINT'su valor en hexadecimal, 
iluminándose el nombre del mismo; y 
el" 

180 PRINT’dato se cambia mediante:" 
:PR1NT 

190 PRINT,"V para entrar un dato, s 
eguido de ENTER." 

200 PRINT, CHR$(248)+" Incrementa e 
1 dato, y *+CHR$(241)+" Decrementa 
el dato." 

210 PRINT" Aparte :" 

220 PRINT,"N restaura la pantalla N 
orraal." 

230 PRINT,"T para Terminar (previa 
restauración)." 

240 PRINT,"X Muestra cuatro ejemplo 
s":PRINT 

250 PRINT" El programa no permite 
entrar datos que puedan bloquear el 
or-" 

260 PRINT'denador. La ultima linea 
informa de las teclas permitidas.": 
PRINT 

270 PRINT" Hay dos Modos de funcio 
namiento: Inmediato y Ejecutar, co 
nmu-" 

280 PRINT"tables con la tecla (SH1F 
T> en cualquier momento."¡PRINT 
290 PRINT TAB(23) i*«" PULSE UNA TE 
CLA "+i$ 

300 : 

310 '::: INICIAL1ZAC10N ::: 


320 : 

330 DEF1NT a-u 

340 D1M stat(3,15),nom$<15) 

350 FOR a=0 TO 15 

360 READ stat(0,a),stat(l,a),stat(2 
,a),nomi(a) 

370 stat(3,a)=stat(2,a) 

380 f*=HIW(STR$(stat(3,a)),2) 

390 f$=SPACE$(3-LEN(f*mf* 

400 nom0(a)="["4«4"] "♦nom$(a) 

410 NEXT 

420 ENT -1,1,10,1:ENT -2,1,-10,1 
430 EW 1,7,1,1,7,-1,1 ¡BW 2,1,10,1 
,10,1,1,15,5,1,15,-1,15 
440 mascl$=i$+*ít"+if:masc2$=i$+" 00 
0 "«i* 



450 ni(8)=’Ejecutar ":mi(l)=*lnmed¡ 
ato" 

460 CALL &BB06:BORDER 12 

470 REM MIN,MAX,STANDAR,NOMBRE DEL 

REGISTRO 

480 DATA 46,100,63,Total horizontal 

490 DATA 0,64,40,Horizontal Visual i 
zado 

500 DATA 0,63,46,Posición sincronis 
mo horizontal 

510 DATA 0,255,142,Ancho del sincro 
nismo <No Accesible) 

520 DATA 0,255,38,Total Vertical 
538 DATA 0,255,0,Ajuste total Verti 
cal 

540 DATA 0,50,25,Vertical visualiza 
do 

550 DATA 0,255,30,Posición sincroni 
smo vertical 

560 DATA 0,255,0,Modo solapado o se 
sgado 

570 DATA 0,255,7,Numero lineas de b 
arrido 

580 DATA 0,255,0,Comienzo del curso 
r 

590 DATA 0,255,0,Fin del cursor 
600 DATA 0,255,48,Dirección comienz 



o rastreo (byte alto) 

610 DATA 0,255,0,Idem (byte bajo) 

620 DATA 0,255,192,Registro del cur 
sor (byte alto) 

630 DATA 0,255,0,Idem (byte bajo) 

640 : 

650 GOSUB 1400:'*** DEMOSTRACION ** 

* 

660 : 

670 ' ¡: ¡ CONTROL ENTRADAS ::: 

680 : 

690 GOSUB 840:'inkeyi 

700 tec=lNSTR("0123456789ABCDEFNTX" 

4CHR$<5),q*) 

710 IF tec=0 OR tec=4 THEN SOUND 7, 

600,-2,8,1,2¡GOTO 690 

720 IF tec=17 THEN GOSUB 12BB:G0T0 

690 

730 IF tec=18 THEN 1200 
740 IF tec=19 THEN GOSUB 1348¡GOSUB 
1308¡GOTO 698 

758 IF tec=28 THEN GOSUB 1278¡GOTO 
698 

760 re<ptec-l 

778 LOCATE 28,reg+3:PRlNT USING mas 
cl$;nom$(reg) 

780 LOCATE 20,23:PRINT"<V> (Flechas 
cursor) Cualquier otra anula la ac 
cion" 

790 GOSUB 840 

800 IF q$=V OR q$='V" THEN LOCATE 
1,23¡PRINT CHR$(18)+CHR$<11)¡PRINT 
•ENTRAR DATO <"stat(8,reg)"..."stat 
<1,reg)") (ENTER para volver):";:LI 
NE 1NPUT "",vi:v=VAL(v$)¡IF STRI(v) 
=" "+v$ THEN IF v<=stat(l,reg) AND 
v>=stat(0,reg) THEN stat(3,reg)=v¡G 
OTO 898 

810 IF q$=CHW(240) AND stat(3,reg) 
<stat(l,reg) THEN stat(3,reg)=stat( 
3,reg)il¡GOTO 898 

820 IF q$=CHR$(241) AND stat(3,reg) 
>stat(0,reg) THEN stat(3,reg)=stat( 
3,reg)-l¡GOTO 890 

838 SOUND 7,608,-2,8,1,1¡LOCATE 20, 
reg+3:PRlNT non$(reg)¡GOSUB 1300:60 
TO 698 

848 IF 1NKEY(21X>-1 THEN m=m XOR 1 
¡LOCATE 48,28+m:PRINT USING mascli; 
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iitti»)¡LOCATE 48,21 -fi:PR!NT irt(l-n): 
GOSUB 1838 

858 q*=UPPER$(lNKEY8)¡lF ql=" 7HEN 
848 ELSE RETURN 
868 : 

878 OlíT ::::: 

888 : 

898 1F bf8 THEN 918 

988 OUT &BC88,reg:OUT &BD00,stat<3, 

reg) 

918 IF TEST(148,84)01 THEN GOSUB 1 
138 

928 LOCATE 28,reg-»3:PRlN7 ncni(reg) 
938 LOCATE B.reg+S.-PRINT'i* 

948 LOCATE 15,reg«3:lF stat(3,reg)= 
stat(2,reg) THBt PRINT US1NG ’ 88* 
*;stat(3,reg) ELSE PRINT USING «ase 
2$;stat(3,reg) 

958 IF regOureg THEN LOCATE 8,ureg 
♦3:PR1NT‘ ‘ 

968 uregpreg 

978 GOSUB 1388:6070 i?i 

988 : 

998 ESTADO DE LOS RE6JS7R0S :: 

• 

1888 : 

1818 ORIGJN 8,8:DRAU 8,399:DRAU 639 
,399:DRAU 639,0:DRAU 8,8:N0ME 1,B:D 
RAWR 8,399¡NOVE 638,0¡DRAUR 8,399 
1820 FOR a=0 TO 28:INK 0,12:1NK 8,6 
:INK 8,24:NEXT:INK 0,1 
1838 PRINT TAB(á) i*’ ESTADO ACTUA 
L, ESTANDAR Y NOMBRE DE LOS REGISTR 
OS DEL CRTC Ni* 

1048 PRINT 

1858 FOR a=0 TO 15 

1868 PRINT TAB(10)‘r OCHM(a448-(a 

>9)*7)+' =*;¡PRINT USING * 888 “¡st 

at(3,a)¡LOCATE 28,a*3:PRINT norrt(a) 

1078 BORDER 26-a:INK 1,9+a:NEXT 

1880 LOCATE 48,28:PR1NT USING «ascl 

f¡irt(8) 

1898 LOCATE 48,21¡PRINT «8(1) 

1108 PLOT 404,84:DRAUR 144,8:DRAUR 
8,-48:DRAUR -144,8:DRAUR 8,40 
1118 PLOT 482,70¡TAG¡PRINT'(CTRL+E) 

*;¡TAGOFF 
1120 GOTO 1168 

1138 LOCATE 5,28¡PRINT indica el 

ultino registro «oditicado 1 
1148 PRINT TAB(5)'En video inverso 
los datos no Estándar* 

1158 PLOT 60,84¡DRAUR 3I2,8:DRAUR 8 

.-48¡DRAUR -312,0¡DRAUR 8,40 
1160 GOSUB 1388¡RETURN 
1178 : 

1180 PANTALLA NORMAL ¡:¡ 


1190 : 

1208 FOR a=0 TO 15:0UT &BC88,a:0UT 
&BDB0,stat(2,a):NEXT 
1218 IF tec=19 THEN RETURN 
1228 IF tec=18 THEN LOCATE 1,1¡END 
1238 LOCATE 1,23:PRINT CHR$<18) 

1248 LOCATE 18,23:PR1NT i*f PULSE 
UNA TECLA PARA VOLVER AL ESTADO W1 
ERIOR '+i$ 

1258 60SUB 848 

1268 GOSUB 1388¡IF i*=0 THEN RETURN 



1278 FOR a=8 TO 15:0UT 4BC88,a:0UT 
&BD88,stat < 3,a)¡NEXT 
1288 RETURN 
1298 : 

1388 LOCATE 1,23:PR1NT i$0 Teclas 
posibles: '+¡8+* 8,1,2,4,5,6,7,8,9, 
A,B,C,D,E,F (N> <T> <X)=Eje«pIos.'4 
CHR8(18)¡RETURN 
1318 : 

1328 '¡¡¡¡ EJEMPLOS :¡¡: 

1338 ¡ 

1340 GOSUB 1288 

1358 LOCATE 1,23¡PR1NT'ELEGIR EJENP 
LO (1,2,3,4) (ENTER para volver)'4C 
HR8(18) 

1368 GOSUB 848 

1370 ej=lNSTR(*1234' ,q8) :1F ej=0' TH 
Bt RETURN 

1388 ON ej GOSUB 1540,1628,1788,179 
0¡RETURN 
1398 ¡ 

1408 '= DEMOSTRACION = 

1418 ¡ 

1420 FOR a=25 TO 8 STEP-1¡GOSUB 147 
0:NEXT 

1438 MODE 2:UIND0U 5,79,2,24 
1448 FOR a=0 TO 25¡GOSUB 1478¡NEXT 
1458 SOUND 7,0,8,8,2,8,31¡OUT 4BC00 
,8:0UT &BD80,1 
1468 GOTO 1488 

1470 CALL írBD19:0UT 4BC80,1:OUT 4BD 
88,INT<1.6*a)¡OUT &BC08,6:OVT ABD88 
,a¡SOUND 2'(a MOD 3),0,7,13,0,0,a+5 


¡RETURN 

1488 INK 1,8:60SUB 1B10:'ESTADO DE 
LOS REGISTROS 

1498 OUT &BC80,8:0UT 4BD00.8 
1588 RETURN 
1518 ¡ 

1528 '= EJEMPLO 1 = 

1538 ¡ 

1548 FOR a=48 TO 8 STEP -1¡60SUB 15 
80¡NEXT 

1558 GOSUB 1838 

1560 FOR a=8 TO 48¡GOSUB 1580¡NEXT 
1578 RETURN 

1580 CALL &BD19:01N itBC00,l:OUT 4BD 
88,a¡RETURN 
1598 : 

1688 '= EJEMPLO 2 = 

1610 : 

1628 FOR a=25 TO 8 STEP -1¡GOSUB 16 
60¡NEXT 

1630 OUT &BCB0.1¡OUT &BD00,0:GOSUB 
1838¡OUT 4BC88,1¡OUT &BD88,40 
1648 FOR a=8 TO 25¡60SUB 1668:NEXT 
1658 RETURN 

1668 CALL &BD19:0UT 4BC08,6:OUT 48D 
88,a¡RETURN 
1678 ¡ 

1688 '= EJEMPLO 3 = 

1698 : 

1700 FOR a=48 TO 8 STEP -1¡GOSUB 17 
40¡NEXT 

1718 GOSUB 1838 

1728 FOR a=0 TO 48¡GOSUB 1740¡NEXT 
1738 RETURN 

1740 CALL 4BD19¡0UT 4BC88,1:0UT &BD 
88,a¡OUT &BC88,2:0UT 4BD08,a+6:RETU 
RN 

1758 RETURN 
1768 : 

1770 '== EJEMPLO 4 = 

1788 : 

1798 FOR b=0 TO 38:CALL 4BD19.-F0R a 
=8 TO 5¡GOSUB 1810¡NEXT¡FOR a=4 TO 
8 STEP -1¡GOSUB 1818¡NEXT¡NEXT 
1888 RETURN 

1818 OUT &BC88,5:0UT 4BD88,a¡RETURN 
1828 ; 

1838 FOR t=0 TO 588¡NEXT¡RETURN 



no redicen el ir abajo duro, M.H. AMS- 
TKAD lo hoce por ti. Todos los listodos que incluyan 
este logotipo se encuentran a tu disposición en un eos- 
sette mensud, sdkitonoslo. 
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Ofites Informática 

Presenta: la tableta gráfica 

GRAFPADII- 

LO ULTIMO EN DISPOSITIVOS DE ENTRADA DE GRAFICOS 
PARA AMSTRAD, COMMODORE Y BBC 


La primera tableta gráfica, de bajo costo, en ofrecer la duración y prestaciones requeridas por las 
aplicaciones de negocios, industria, hogar y educación. Es pequeña, exacta y segura. No necesita 
ajustes ni mantenimiento preventivo. GRAFPAD II es un producto único que pone la potencia de 



ESPECIFICACIONES 

RESOLUCION: 

1.280 x 1.024 pixels. 

PRECISION: 

1 pixel. 

TASA DE SALIDA: 

2.000 pares de coordenadas por 
segundo. 

INTERFACE: 

paralelo. 

ORIGEN: 

borde superior izquierdo o 
seleccionable. 

DIMENSIONES: 

350 x 260 x 12 mm. 

DISPONIBLE AMSTRAD: 
CASSETTE 23.900 ptas. 

DISCO . 25.900 ptas. 

(IVA NO INCLUIDO) 


MUER BRR 

HRRDMOOD CILl 

PITCHMRSTIC 

SCREED 

DPC 

IOOmm CONCRE1 
FLOOR ON 5009 


la tecnología moderna bajo el control del usuario, 


DISEÑO DE ARQUITECTURA 
CON SOFTWARE DDX 


DIBUJO A MANO ALZADA 
SOFTWARE DE ICONOS 


FACIL DE USAR. 

TRAZADO PCB. 

C.A.D. 

AREA DE DISEÑO DIN A4. 
COLOR EN ALTA 
RESOLUCION. 

USO EN HOGAR Y 
NEGOCIOS. 

VARIEDAD DE PROGRAMAS 
DISPONIBLES. 

DIBUJO A MANO ALZADA. 
DIAGRAMAS DE CIRCUITOS. 


COMBINA EN UN UNICO DISPOSITIVO TODAS LAS 
PRESTACIONES DE LOS INTENTOS PREVIOS DE 
MECANISMOS DE ENTRADA DE GRAFICOS. LAS 
APLICACIONES SON MAS NUMEROSAS QUE EN LOS 
DEMAS DISPOSITIVOS COMUNES E INCLUYEN: 

selección de opciones 3 entrada de modelos E recogida de 
datos diseño lógico diseño de circuitos creación de 
imágenes almacenamiento de imágenes recuperación de 
imágenes diseño para construcción C.A.D. (diseño asistido 
por ordenador) ilustración de textos □ juegos diseño de 
muestras educación diseño PCB. 


Avda. Isabel II, 16 -8 e 
Tels. 455544 - 455533 
Télex 36698 

20011 SAN SEBASTIAN 


CONDICIONES ESPECIALES PARA DISTRIBUIDORES 























Modificador 

I DE CADENAS | 

. s Je nosotros , en nna'cadena de 

caracteres que^ pr SgramaBas£ experíenc ¡a, 

A<,U /ar2 í n ?o moñona y "abafos» a«e «solfa 

conocerán 10 e sfa tarea. 


partir de ahora, la mo¬ 
dificación de cadenas de un programa Basic, 
resultará lo más sencillo del mundo si nos ayu¬ 
damos del programa que aparece listado en 
este artículo. 

Debemos advertir en primer lugar que nues¬ 
tro programa trabaja únicamente con progra¬ 
mas que estén salvados en formato fichero. 

Si deseamos trabajar con un programa que 
no se encuentre en este formato, deberemos 
hacer lo siguiente: 

— Cargar el programa en memoria con: 
LOAD"PROGRAMA 

— Salvar el programa de la forma siguien¬ 
te: 

SAVE"PROGRAMA",A 

de esta forma nuestra rutina ya podrá traba¬ 
jar con él, puesto que ahora se encontrará sal¬ 
vado como fichero de caracteres o fichero AS¬ 
CII. 

La rutina encargada de efectuar el trabajo 
está ubicada a partir de la dirección hexade- 
cimal &A000, y tiene una longitud de 1135 
bytes. Por lo tanto no podremos trabajar con 
programas Basic que ocupen dichas direccio¬ 
nes. 

Debemos aclarar que esto no es un gran in¬ 
conveniente, debido a que apenas ningún pro¬ 
grama escrito en Basic llega a ocupar esas di¬ 
recciones, ya que generalmente no suelen ser 
demasiado extensos. 

De lo dicho anteriormente, se deduce que 
el programa modificador de cadenas no po¬ 
drá trabajar con programas Basic que supe- 
I ren los 39 K de longitud. 


La solución del peor 
de los casos 


Si en alguna ocasión necesitáramos traba¬ 
jar con programas de gran extensión, que su¬ 
perarán los 39 K de memoria, no deberemos 
alarmarnos, puesto que todo tiene solución. 

Dicha solución sería partir nuestro progra¬ 
ma en dos, es decir, deberíamos cargar el pro¬ 
grama en memoria y salvar únicamente la mi¬ 
tad, y a continuación volver a cargarlo en me¬ 
moria y salvar la otra mitad. 

Ahora estaríamos en condiciones de traba¬ 
jar con cada una de las dos mitades sin pro¬ 
blemas de memoria. 

Una vez hubiésemos finalizado el trabajo 
cargaríamos el primer programa y a continua¬ 
ción haríamos un MERGE del segundo progra¬ 
ma, con lo cual tendríamos el programa otra 
vez completo y modificado. 

Realizadas estas advertencias y apuntadas 
las posibles soluciones a los problemas con los 
que nos podemos encontrar, pasaremos ahora 
a explicar el manejo del programa modifica¬ 
dor de cadenas. 


El programa 


Con lo primero que nos encontramos al eje¬ 
cutar el programa, es con un menú de ayuda 
en el que se encuentran las siguientes opcio¬ 
nes: 


ORDENES DEL 
MODIFICADOR 


B — Basic 
L — Listar 

C — Cargar (LOAD) 

S - Salvar (SAVE) 

F — Cambiar cadenas 




La primera de las opciones tiene como úni- .« 
co objeto, permitirnos retornar al Basic. 

La opción "LISTAR", nos permitirá listar 
el programa que se encuentre en memoria en 
ese momento. Si no hemos cargado ningún 
programa, al elegir esta opción, aparece un 
mensaje indicándonos que no existen ningún 
programa en memoria. 

Cuando se elija la opción CARGAR, se nos 
pedirá el nombre del programa que deseamos 
cargar en memoria. Una vez escrito dicho 
nombre, deberemos pulsar "ENTER". 

Mientras se esté ejecutando la carga del pro¬ 
grama, aparecerán unas líneas en la panta¬ 
lla, pero eso no nos debe asustar, ya que di¬ 
chas rayas son debidas a que se ha elegido 
dicha zona de memoria como buffer de car¬ 
ga. 

Se ha hecho de esta forma con el fin de aho¬ 
rrar memoria ya que dicho buffer necesita: 2 k. 
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Otra de las opciones que posee es la que 
permite salvar el programa que tenemos en 
memoria en disco o cinta. En esta opción vol¬ 
verán a aparecer las rayas mencionadas an¬ 
teriormente, debido a que se utiliza el mismo 
buffer de memoria. 

Por último, se nos ofrece la posibilidad de 
modificación de cadenas de caracteres. Esta 
opción nos permitirá cambiar una cadena por 
otra de una longitud no superior a 20 carac¬ 
teres. Si la longitud de la cadena de caracte¬ 
res que se desea modificar es superior a di¬ 
cha cifra, entonces se deberá efectuar el cam¬ 
bio en dos pasadas, es decir, deberemos mo¬ 
dificar en primer lugar los primeros 20 carac¬ 
teres y a continuación los restantes. Cuando 
deseemos modificar alguna cadena, lo prime¬ 
ro que hará el programa será preguntarnos 
cuál es la cadena que se desea cambiar; una 
vez introducida, deberemos pulsar "ENTER". 


A continuación se nos preguntará cuál es la 
cadena que debe sustituir a la anterior. 

Cuando se hayan dado estos parámetros, 
el programa buscará una cadena idéntica a 
la primera que hayamos dado, y la cambiará 
por la última. 

Cuando haya finalizado el trabajo, se im¬ 
primirá un mensaje indicando que dichas ca¬ 
denas se han modificado. En el caso de que 
no encuentre ninguna cadena de caracteres 
igual a la que hemos introducido, nos lo indi¬ 
cará con otro mensaje. 


Funcionamiento 
y rutinas principales 


Vamos a ver ahora cuáles son las rutinas 
más importantes de que se compone nuestro 
programa. 

Para hacernos una idea de conjunto del pro¬ 
grama realizaremos una especie de diagrama 
de flujo con el cual podremos ver globalmen¬ 
te los pasos a seguir. 


lectura del teclado. La rutina permanecerá en 
dicho bucle hasta que no sea pulsada alguna 
de las teclas predeterminadas. 

Cuando se detecte la pulsación de alguna 
de las teclas que indican al programa que se 
ha elegido una opción, se enviará el control 
a la rutina que corresponda, y una vez finali¬ 
zado el trabajo se retornará al bucle princi¬ 
pal de lectura de teclado. 

La primera subrutina con la que nos encon¬ 
tramos en el programa, es la encargada de 
efectuar la carga. 

Para averiguar cuál es el nombre del pro¬ 
grama que se desea cargar, efectuamos una 
llamada a la rutina INPUT, la cual nos pedirá 
el nombre del fichero que deseamos introdu¬ 
cir en la memoria del ordenador. 

Hecho esto se retorna a la rutina LOAD para 
efectuar dicha carga, utilizando las rutinas del 
firmware capaces de leer un programa en for¬ 
ma de fichero ASCII. 

Una vez finalizada su tarea, reinicializa la 
pantalla y devuelve el control del programa 
al bucle principal para detectar la elección de 
otras opciones. 


diagrama de 



inicializacion 

lectura 


PULSADA 


SE HA PULSADO 
ALGUNA DE 
LAS TECLAS B, L, 
C, S, F 



TECLA C 

CARGA DE 
PROGRAMA 



SALVA EL 
PROGRAMA 


-- 


En primer lugar hacemos una inicializacion 
de todos los parámetros que utilizaremos du¬ 
rante la ejecución del programa, seguidamen¬ 
te preparamos la pantalla eligiendo el modo 
en el que vamos a trabajar. 

Activamos una ventana, en la cual imprimi¬ 
remos el menú de opciones. En este caso se 
ha elegido una situada en la parte superior de 
la pantalla. 

Una vez hecho esto, entramos en el bucle 
principal del programa, donde se produce la 


Rutina de listar 


Otra de las rutinas que componen el pro¬ 
grama es la encargada de producir un lista¬ 
do en pantalla. Para ello se toma la dirección 
inicial del programa, y a partir de ahí va to¬ 
mando los caracteres que encuentra en me¬ 
moria y los imprime en pantalla. 

Cuando se detecta que se ha llegado al fi¬ 
nal del programa, retorna al bucle principal. 
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A continuación nos encontramos con la ru¬ 
tina más importante de nuestro programa, se 
trata de la rutina encargada de modificar las 
cadenas de caracteres. 

En primer lugar, se llama a la rutina INPUT, 
para conseguir la información de qué cade¬ 
na debe modificar y por cuál ha de sustituir¬ 
la. Cuando ha conseguido dichos datos, inten¬ 
ta detectar una cadena idéntica a la dada, si¬ 
no lo consigue devuelve el control al bucle 
principal imprimiendo el mensaje de que no 
ha encontrado ninguna cadena. 

En caso de que se encuentre con una cade¬ 
na de caracteres idéntica a la que se ha da¬ 
do, entonces se encarga de sustituirla por la 
nueva, reservando el espacio de memoria ne¬ 
cesario para la nueva cadena de caracteres 
a introducir, y eliminando al mismo tiempo el 
espacio de memoria que ocupaba la antigua. 

Una vez realizada la misma operación con 
todas las cadenas de caracteres idénticas a la 
dada, imprime el mensaje correspondiente y 
retorna al bucle de lectura de teclado. 

Por último nos queda comentar la rutina de 
SAVE, ésta hace una llamada a INPUT para 
saber qué nombre debe dar al nuevo fichero, 
y a continuación se almacena en cinta o dis¬ 
co. 

Después de finalizar su trabajo, inicializa la 
pantalla y retorna al bucle principal. 

Una vez realizada la descripción del funcio¬ 
namiento de la rutina y dadas las instruccio¬ 
nes para su correcto funcionamiento, única¬ 
mente queda copiar el listado de dicho pro¬ 
grama. 


Manipulación 
del listado 


Para ello, deberemos copiar el listado en¬ 
samblador que aparece al final del artículo, 
y salvarlo en cinta o disco. 

También ofrecemos un cargador Basic, pa¬ 
ra aquellos que prefieran teclearlo directamen¬ 
te en forma de DATAS. 

Aquellos que elijan esta última opción, de¬ 
berán ejecutar el programa cargador una vez 
tecleado, y en el caso de que aparezca algún 
mensaje de error, se deberán revisar las líneas 
DATA. 

Si dicho mensaje no aparece, indicará que 
todo ha ido bien, y por lo tanto estaremos en 
condiciones de salvarlo en cinta o disco. 

Para ello haremos lo siguiente: 

SAVE"CADENAS",B,&AOOO,1135 

Cuando se quiera trabajar con el modifica¬ 
dor de cadenas, deberemos escribir un pro¬ 
grama BASIC como el que se indica a conti¬ 
nuación: 

10 MEMORY &9FF 
20 LOAD"CADENAS)),&AOOO 
30 CALL &A000 

No queda nada más que decir, sólo desear 
que este programa os sea de gran utilidad. 
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10 |MODIFICADOR DE CADENAS 


20 

ORG 

•AOOO 

SO 

LD 

HL , 0 

40 

LO 

(FINPRO) ,U_ 

50 

CALL 

VENTAN 

60 

JP 

TEC 

70 VENTAN: 

LD 

A, 2 

80 

CALL 

tBCOE 

90 

LD 

A, 1 

too 

CALL 

• BBB4 

110 

LD 

HL, 0 

120 

LD 

DE,§5001 

ISO 

CALL 

•BB66 

140 

LD 

A,1 

ISO 

CALL 

• BB96 

160 

XOR 

A 

170 

CALL 

ABB90 

180 

CALL 

«BB6C 

190 

LD 

HL,TXT 

200 QTRPO: 

LD 

A,(HL) 

210 

CP 

255 

220 

JR 

2,FUERA 

230 

CALL 

• BB5A 

240 

INC 

HL 

250 

JR 

QTRPO 

260 FUERA: 

XOR 

A 

270 

CALL 

•BBB4 

280 

LD 

HL,40002 

290 

LD 

DE,45019 

300 

CALL 

ABB66 

310 

RET 


320 i 

330 | 

340 TEC: 

LD 

A,54 

350 

CALL 

4BB1E 

360 

RET 

N2 

370 

LD 

A, 36 

380 

CALL 

4BB1E 

390 

JR 

2,PAST1 

400 

CALL 

IMPRE 

410 PAST1: 

LD 

A, 60 

420 

CALL 

4B81E 

430 

JR 

2,PAST2 

440 

CALL 

SAVE 

450 PAST2: 

LD 

A, 62 

460 

CALL 

4BB1E 

470 

JR 

2,PAST3 

480 

CALL 

LOAD 

490 PAST3: 

LD 

A, 53 

500 

CALL 

4BB1E 

510 

JR 

2, TEC 

520 

CALL 

BUSCA 

530 

JR 

TEC 

540 | 

550 j 

560 LOAD: 

CALL 

4BB6C 

570 

CALL 

I LOAD 

580 

CALL 

4BB6C 

590 

LD 

A, <L LOAD) 

600 

LD 

B, A 

610 

LD 

HL,NLOAD 

620 

LD 

DE,ACOAO 

630 

CALL 

ABC77 

640 

JP 

NC,ERROR 

650 

LD 

HL,5000 

660 BULEC: 

CALL 

ABC 80 

670 

JR 

NC.FINIT 

680 

LD 

(HL),A 

690 

INC 

HL 

700 

JR 

BULEC 

710 FINIT* 

DEC 

HL 

720 

LD 

(FINPRO),HL 

730 

CALL 

4BC7A 

740 

CALL 

VENTAN 

750 

LD 

HL, A0800 

760 

LD 

DE,TXTPL 

770 

CALL 

PRINT 

780 

RET 


790 IHPRE: 

CALL 

4BB6C 

800 

LD 

HL,(FINPRO) 

810 

LD 

A,H 

820 

QR 

L 

830 

JP 

Z.NOPRO 

840 

LD 

DE,5000 

850 OTRA: 

PUSH 

DE 

860 

LD 

A, 66 

870 

CALL 

ABfilE 

880 

CALL 

N2,PAUSA 

890 

POP 

DE 

900 

LD 

A,(DE) 

910 

CALL 

A BBS A 

920 

INC 

DE 

930 

LD 

(FIH»RO) 

940 

LD 

A, H 

950 

CP 

D 

960 

JR 

NI,OTRA 

970 

LD 

A,L 

980 

CP 

E 

990 

JR 

NZ.OTRA 

ÍOOO 

RET 


lOtO PAUSA: 

LD 

BC,40000 

1020 PAUS: 

DEC 

BC 

1030 

LD 

A, B 

1040 

QR 

C 

1050 

JR 

N2.PAUS 

1060 

CALL 

ABB03 

1070 

CALL 

4BB18 

1080 

RET 


1090 | 

1100 ¡BUSCA 

CADENA 

1110 ; 

1120 BUSCA: 

LD 

HL,(FINPRO) 

1130 

LD 

A,H 

1140 

OR 

L 

USO 

JP 

Z.NOPRO 

1160 

XOR 

A 

1170 

LD 

(NUNCA),A 

1180 

CALL 

4BB6C 

1190 

CALL 

NOHCAI 

1200 

CALL 

ABB6C 

1210 

CALL 

NOH CAN 

1220 

CALL 4BB6C 

1230 

LD 

HL, CADENV 

1240 

LD 

DE, 5000 

1250 

LD 

IX.IOOO 

1260 VULV* 

LD 

B.O 

1270 BUC: 

LD 

A,(LQNCV) 

1280 

CP 

B 


1290 

JR 

Z,FIN 

1300 

PUSH 

HL 

1310 

LD 

HL,(FINPRO) 

1320 

LD 

A, D 

1330 

CP 

H 

1340 

JR 

NZ,SIGU 

1350 

LD 

A,£ 

1360 

CP 

L 

1370 

JR 

Z,FINRU 

1380 SIGU: 

POP 

HL 

1390 

LD 

A,(DE) 

1400 

LD 

(IX+O),A 

1410 

CP 

(HL) 

1420 

INC 

DE 

1430 

INC 

IX 

\440 

JR 

Z,INCCQ 

1450 

LD 

B.O 

1460 

LD 

HL,CADENV 

1470 

JR 

BUC 

1480 INCCQ: 

INC 

B 

1490 

INC 

HL 

1500 

JR 

BUC 

1510 FIN: 

LD 

(DIREC),DE 

1520 OTRDE: 

DEC 

IX 

1530 

DJNZ 

OTRDE 

1540 

LD 

A, (NUT1CA) 

1550 

INC 

A 

1560 

LD 

(NUNCA),A 

1570 

LD 

A,(LONCN) 

1580 

LD 

B, A 

1590 

LD 

HL,CADENN 

1600 PONBU: 

LD 

A,(HL) 

1610 

LD 

(IX+O),A 

1620 

INC 

IX 

1630 

INC 

HL 

1640 

DJNZ 

PONBU 

1650 

LD 

HL,CADENV 

1660 

JR 

VULV 

1670 FINRU: 

POP 

HL 

1680 

PUSH 

IX 

1690 

POP 

HL 

1700 

LD 

DE,4000 

1710 

ADD 

HL, DE 

1720 

LD 

(FINPRO) ,14 

1730 

LD 

DE,5000 

1740 

SCF 


1750 

CCF 


1760 

SBC 

HL, DE 

1770 

LD 

B,H 

1780 

LD 

C,L 

1790 

LD 

HL.IOOO 

1800 

LD 

DE,5000 

1810 

LDIR 


1820 

LD 

A,(NUNCA) 

1830 

CP 

0 

1840 

JR 

NZ,BISCA 

1850 

LD 

rt_,«OQOO 

1860 

LD 

DE,TXTNOC 

1870 

CALL 

PRINT 

1880 

RET 


1890 SIBCA: 

LD 

HL,40800 

1900 

LD 

DE,TXTSIC 

1910 

CALL 

PRINT 

1920 

RET 


1930 SAVE: 

CALL 

•BB6C 

1940 

LD 

HL,(FINPRO) 

1950 

LD 

A,H 

1960 

OR 

L 

1970 

JP 

Z.NOPRO 

1980 

CALL 

I_SAVE 

1990 

CALL 

•BB6C 

2000 

LD 

A,(L_SAVE> 

2010 

LD 

B,A 

2020 

LD 

HL,N SAVE 

2030 

LD 

DE.BCOAO 

2040 

CALL 

«BC8C 

2050 

LD 

DE,5000 

2060 QTRCA: 

LD 

A,(DE) 

2070 

CALL 

CBC95 

2080 

LD 

HL, (FINPRO) 

2090 

LD 

A,H 

2100 

CP 

D 

2110 

JR 

NZ,PASI 

2120 

LD 

A, L 

2130 

CP 

E 

2140 

JR 

Z,FINSA 

2150 PASI: 

INC 

DE 

2160 

JR 

QTRCA 

2170 FINSA: 

CALL 

NBCBF 

2180 

CALL 

•BC92 

2190 

CALL 

VENTAN 

2200 

RET 


2210 NOHCA1: 

LD 

A, 20 

2220 

LD 

(HIRLON+l),A 

2230 

LD 

HL,4080D 

2240 

LD 

DE.TXTO 

2250 

CALL 

PRINT 

2260 

CALL 

INPUT 

2270 

LD 

A,(LONG) 

2280 

LD 

(LONCV),A 

2290 

LD 

DE,CADENV 

2300 

CALL 

TRASP 

2310 

RET 


2320 NOMCAN: 

LD 

A,20 

2330 

LD 

(HIRLON+l),A 

2340 

LD 

HL,OOBOD 

2350 

LD 

DE,TXT1 

2360 

CALL 

PRINT 

2370 

CALL 

INPUT 

2380 

LD 

A,(LONG) 

2390 

LD 

(LONCN),A 

2400 

LD 

DE,CADE fM 

2410 

CALL 

TRASP 

2420 

RET 


2430 I_LQAD: 

LD 

A,8 

2440 

LD 

(HIRLON+l),A 

2450 

LD 

HL,tOBOD 

2460 

LD 

DE.TXT2 

2470 

CALL 

PRINT 

2480 

CALL 

INPUT 

2490 

LD 

A,(LONG) 

2500 

LD 

(L.LOAD),A 

2510 

LD 

DE,N_LQAD 

2520 

CALL 

TRASP 

2530 

RET 


2540 I SAVE: 

LD 

A,B 

2550 

LD 

(HIRLON+l),A 

2560 

LD 

HL.408OD 








2570 

25B0 

2590 

2600 

2610 

2620 

2630 

2640 

2650 INPUT: 
2660 
2670 
2680 
2690 
2700 
2710 
2720 

2730 I_BUC: 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 

2840 MIRLQN: 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
7920 
2930 
2940 
2950 
2960 
2970 
2980 

2990 DELET: 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 TRASP: 

3230 

3240 

3750 

3260 

3270 

3280 PRINT: 

3290 PBUD: 

3300 

3310 

3320 

3330 

3340 

3350 

3360 NOPRQ: 
3370 
3380 
3390 

3400 ERROR: 
3410 
3420 
3430 

3440 TXTO: 
3450 

3460 TXTl: 
3470 

"MBO TXT2: 
3490 

■*500 TXT3: 
3510 


LD DE.TXT3 
CALL PRINT 
CALL INPUT 
LO A,(LQNG) 

LD (L_SAVE),A 
LD DE,N SAVE 

CALL TRASP 
RET 

CALL #BB03 
XOR A 

LO (LQNG),A 
LO DE,ÑAME 
LD HL,*090F 
CALL «BB75 
LD A,"_“ 

CALL ÍBB5A 
CALL «BB1B 
LD B, A 
CP 13 


RET 

CP 

JR 

CP 


LD 

CP 


127 

Z,DELET 
32 

C,I_BUC 
129 

NC,I_BUC 
A,(LQNG) 


JR Z,I_BUC 
LD A,8 
CALL «BB5A 
LD A, B 
CALL NBB5A 
LD A, “ _ “ 

CALL 4BB5A 
LD A,(LONG) 
INC 


LD 


(LONG),A 
A.B 
( DE ) , A 
DE 

I_BUC 
A,(LQNG) 


JR 

DEC 

LD 


(LQNG),A 


DEC DE 


LD 


A, 32 
(DE),A 
LD A, B 
CALL «BB5A 
LD A,32 
CALL «BB5A 
LD A, 8 
CALL «BB5A 
LD A.B 
CALL ÍBB5A 
LD A,32 
CALL 4BB5A 
LD A, B 
CALL #BB5A 
LD A, 

CALL 4BB5A 
JR I_BUC 

A,(LQNG) 


C, A 
B,0 

HL,NAfC 


LD 
LD 
LD 
LDIR 
RET 

CALL 4BB75 
LD A,(DE) 

CP 255 
RET Z 
CALL «BBSA 
INC DE 
JR PBUD 
RET 

LD HL,4080D 
LD DE,TXTPR 
CALL PRINT 
RET 

LD HL,0O8OD 
LD DE,TXTER 
CALL PRINT 
RET 

DEFM "NOMBRE DE L.A CADENA A CAMBIAR 
DEFB 255 

DEFM "NOMBRE DE Lí, NUEVA CADENA" 
DEFB 255 

DEFM "NOMBRE DEL PROGRAMA A CARGAR" 
DEFB 255 

DEFM "NOMBRE DEL PROGRAMA A SALVAR" 
DEFB 255 


3520 N_LOAD: DEFS 10 

3530 L~LOAD: DEFS 1 

3540 N_SAVE: DEFS 10 

3550 L_SAVE: DEFS 1 

3560 CADENV: DEFS 20 

3570 LQNCV: DEFS l 

3580 CADENN: DEFS 20 

3590 LQNCN: DEFS 1 

3600 TXTPR: DEFM "NO HAY PROGRAMA EN MEMORIA” 

3610 DEFB 255 

3620 TXTPL: DEFM "PROGRAMA EN MEMORIA” 

3630 DEFB 255 

3640 TXTNOC: DEFM "NO EXISTE ESTA CADENA" 

3650 DEFB 255 

3660 TXTSIC: DEFM "CADENAS CAMBIADAS” 

•X670 DEFB 255 

3680 TXTER: DEFM "ERROR" 

3690 DEFB 255 

3700 TXT: DEFM " B - BASIC L - LISTAR 

C - CARGAR 

3710 DEFM "S - SALVAR 

3720 DEFB 255 

3730 FINPRO: DEFW O 
3740 NUMCA: DEFB O 
3750 DIREC: DEFS 2 
T760 LONG: DEFS 1 

3770 ÑAME: DEFS 25 

00 

LEC A093 BUSCA AOEB 
DENV A37A DELET 
ROR A2E8 FIN 
NPRO A44C FINRU , 


F - CAMBIAR CADENAS" 


10 REM MODIFICADOR DE CADENAS 
20 REM PROGRAMA CARGADOR 
30 FQR N=liAOOO TO 6A46B 
40 READ A:SUMA=SUMA+A 
50 POKE N,A 
60 NEXT 

70 IF SUMA<>10921^ THEN PRINT "ERRO 
R EN DATAS" 

80 DATA 33,0,0,34,76,164,205 
90 DATA 12,160,195,71,160,62,2 
lOO DATA 205,14,188,62,1,205,180 
110 DATA 187,33,0,0,17,1,80 
120 DATA 205,102,187,62,1,205,150 
130 DATA 187,175,205,144,187,205,10 
8 

140 DATA 187,33,1,164,126,254,255 
150 DATA 40,6,205,90,187,35,24 
160 DATA 245,175,205,180,187,33,2 
170 DATA 0,17,25,80,205,102,187 
180 DATA 201,62,54,205,30,187,192 
190 DATA 62,36,205,30,187,40,3 
200 DATA 205,176,160,62,60,205,30 
210 DATA 187,40,3,205,146,161,62 
220 DATA 62,205,30,187,40,3,205 
230 DATA 119,160,62,53,205,30,187 
240 DATA 40,213,205,232,160,24,208 
250 DATA 205,108,187,205,11,162,205 
260 DATA 108,187,58,110,163,71,33 
270 DATA 100,163,17,160,192,205,119 
280 DATA 188,210,232,162,33,136,19 
290 DATA 205,128,1B8,48,4,119,35 
300 DATA 24,247,43,34,76,164,205 
310 DATA 122,188,205,12,160,33,13 
320 DATA 8,17,191,163,205,208,162 
330 DATA 201,205,108,187,42,76,164 
340 DATA 124,181,202,222,162,17,136 
350 DATA 19,213,62,66,205,30,187 
360 DATA 196,217,160,209,26,205,90 
370 DATA 187,19,42,76,164,124,186 
180 DATA 32,234,125,187,32,230,201 
390 DATA 1,64,156,11,120,177,32 
400 DATA 251,205,3,187,205,24,187 
410 DATA 201,42,76,164,124,181,202 
420 DATA 222,162,175,50,78,164,205 
430 DATA 108,187,205,207,161,205,10 
8 

440 DATA 187,205,237,161,205,108,18 
7 

450 DATA 33,122,163,17,136,19,221 
460 DATA 33,232,3,6,0,58,142 
470 DATA 163,184,40,34,229,42,76 
480 DATA 164,122,188,32,4,123,189 
490 DATA 40,58,225,26,221,119,0 
500 DATA 190,19,221,35,40,7,6 
510 DATA 0,33,122,163,24,220,4 
520 DATA 35,24,216,237,83,79,164 
530 DATA 221,43,16,252,58,78,164 
540 DATA 60,50,78,164,58,163,163 
550 DATA 71,73,143,163,126,221,119 
560 DATA 0,221,35,35,16,247,33 
570 DATA 122,163,24,178,225,221,229 
580 DATA 225,17,160,15,25,34,76 
590 DATA 164,17,136,19,55,63,237 
600 DATA 82,68,77,33,232,3,17 
610 DATA 136,19,237,176,58,78,164 
620 DATA 254,0,32,10,33,13,8 
630 DATA 17,211,163,205,208,162,201 
640 DATA 33,13,8,17,233,163,205 
650 DATA 208,162,201,205,108,187,42 
660 DATA 76,164,124,181,202,222,162 
670 DATA 205,41,162,205,108,187,58 
680 DATA 121,167,71,33,111,163,17 
690 DATA 160,192,205,140,188,17,136 
700 DATA 19,26,205,149,188,42,76 
710 DATA 164,124,186,72,4,125,187 
720 DATA 40,3,19,24,23B,205,143 
730 DATA 188,205,146,188,205,12,160 
740 DATA 201,62,20,50,115,162,33 
750 DATA 13,8,17,242,162,205,208 
760 DATA 162,205,71,162,58,81,164 
770 DATA 50,142,163,17,122,163,205 
780 DATA 196,162,201,62,20,50,115 
790 DATA 162,33,13,8,17,16,163 
800 DATA 205,208,162,205,71,162,58 
810 DATA 81,164,50,163,163,17,143 
820 DATA 163,205,196,162,201,62,B 
830 DATA 50,115,162,33,13,8,17 
840 DATA 42,163,205,208,162,205,71 
850 DATA 162,58,81,164,50,110,163 
860 DATA 17,100,163,205,196,162,201 
870 DATA 62,8,50,115,162,33,13 
880 DATA 8,17,71,163,205,208,162 
890 DATA 205,71,162,58,81,164,50 
900 DATA 121,163,17,111,163,205,196 


910 DATA 162,201,205,3,187,175,50 
920 DATA 81,164,17,82,164,33,15 
930 DATA 9,205,117,187,62,95,205 
940 DATA 90,187,205,24,187,71,254 
950 DATA 13,200,254,127,40,41,254 
960 DATA 32,56,241,254,129,48,237 
970 DATA 58,81,164,254,4,40,230 
980 DATA 62,8,205,90,187,120,205 
990 DATA 90,187,62,95,205,90,187 
1000 DATA 58,81,164,60,50,81,164 
1010 DATA 120,18,19,24,204,58,81 
1020 DATA 164,254,0,40,197,61,50 
1030 DATA 81,164,27,62,32,18,62 
1040 DATA 8,205,90,187,62,32,205 
1050 DATA 90,187,62,8,205,90,187 
1060 DATA 62,8,205,90,187,62,32 
1070 DATA 205,90,187,62,8,205,90 
1080 DATA 187,62,95,205,90,187,24 
1090 DATA 152,58,81,164,79,6,0 
110O DATA 33,82,164,237,176,201,205 
1110 DATA 117,187,26,254,255,200,20 
5 

1120 DATA 90,187,19,24,246,201,33 
1130 DATA 13,8,17,164,163,205,208 
1140 DATA 162,201,33,13,8,17,251 
1150 DATA 163,205,208,162,201,78,79 
1160 DATA 77,66,82,69,32,68,69 
1170 DATA 32,76,65,32,67,65,68 
1180 DATA 69,78,65,32,65,32,67 
1190 DATA 65,77,66,73,65,82,255 
1200 DATA 78,79,77,66,82,69,32 
1210 DATA 68,69,32,76,65,32,78 
1220 DATA 85,69,86,65,32,67,65 
1230 DATA 68,69,78,65,255,78,79 
1240 DATA 77,66,82,69,32,68,69 
1250 DATA 76,32,80,82,79,71,82 
1260 DATA 65,77,65,32,65,32,67 
1270 DATA 65,82,71,65,82,255,78 
1280 DATA 79,77,66,82,69,32,68 
1290 DATA 69,76,32,80,82,79,71 
1300 DATA 82,65,77,65,32,65,32 
1310 DATA 83,65,76,86,65,82,255 
1320 DATA O,O,O,O,O,O,O 
1330 DATA O,O,O,O,O,0,0 
1340 DATA O,O,O,O,O,O,O 
1350 DATA O,O,O,O,O,0,0 
1360 DATA O,O,O,O,O,O,O 
1370 DATA 0,0,0,0,0,0,0 
1380 DATA O,O,O,O,O,O,O 
1390 DATA O,O,O,O,O,O,O 
1400 DATA O,O,O,O,O,O,O 
1410 DATA O, 78, 79,32, 72, 65,8*? 

1420 DATA 32,80,82,79,71,82,65 
1430 DATA 77,65,32,69,7B,32,77 
1440 DATA 69,77,79,82,73,65,255 
1450 DATA 80,82,79,71,82,65,77 
1460 DATA 65,32,69,78,32,77,69 
1470 DATA 77,79,82,73,65,255,78 
1480 DATA 79,32,69,88,73,83,84 
1490 DATA 69,32,69,83,84,65,32 
1500 DATA 67,65,68,69,78,65,255 
1510 DATA 67,65,68,69,78,65,83 
1520 DATA 32,67,65,77,66,73,65 
1530 DATA 68,65,83,255,69,B2,82 
1540 DATA 79,82,255,32,32,32,32 
1550 DATA 66,32,45,32,66,65,83 
1560 DATA 73,67,32,32,32,76,32 
1570 DATA 45,32,76,73,83,84,65 
1580 DATA 82,32,32,32,67,32,45 
1590 DATA 32,67,65,82,71,65,82 
1600 DATA 32,32,32,83,32,45,32 
1610 DATA 83,65,76,86,65,B2,32 
1620 DATA 32,32,70,32,45,32,67 
1630 DATA 65,77,66,73,65,82,32 
1640 DATA 67,65,68,69,78,65,83 
1650 DATA 255,0,0,0,0,0,0 
1660 DATA O,O,O,O,O,O,O 
1670 DATA O,O,O,O,O,0,0 
1680 DATA O,O,O,O,O,O,O 
1690 DATA O,O,O,O,0,0,O 



no realicen el trabajo duro, M.H. AMS- 
HAD lo hoce por ti. Iodos los listados que incluyan 
este logotipo se encuentran a tu disposición en un cas¬ 
sette mensual, solicítanoslo. 














Listador de 

VARIABLES 


Otro de los programas de utilidades que 
os ofrecemos en este número , es el 
listador de variables, utilizable a través 
de nuevos comandos R5X. 


ediante dichos coman¬ 
dos, estaremos en condiciones de listar tanto 
las variables numéricas como alfanuméricas 
que se utilicen en un programa. 

La rutina en código máquina que realiza di¬ 
cha función, está ubicada a partir de la direc¬ 
ción hexadecimal $A000 y tiene una longitud 
de 585 bytes. 

Debido a la zona de memoria que ocupa 
nuestro programa, no podremos trabajar con 
programas de gran longitud, ya que de lo con¬ 
trario corromperíamos esas direcciones de me¬ 
moria. Así pues, la longitud de nuestros pro¬ 
gramas, no debe superar 39k. 

Para que dicha rutina funcione correctamen¬ 
te, deberemos ejecutar el siguiente programa 
Basic: 

10 MEMORY &9FFF 
20 LOAD"RSX 
30 CALI &A000 

Una vez hecho esto, borraremos todo lo que 
hay en la memoria mediante el comando: 

NEW 

y a continuación podremos cargar en memo¬ 
ria el programa con el cual vayamos a traba¬ 
jar. 

La línea 30 del anterior programa Basic, se 
utiliza para indicar al ordenador que existen 
nuevos comandos, ya que de lo contario, los 
ignoraría. 

Una vez tengamos en memoria el progra¬ 
ma con el que deseemos trabajar, no debe¬ 
remos ejecutarlo, ya que de lo contrario 
se inicializarían las variables, y la rutina sería 
incapaz de identificarlas. 

A partir de este momento, estamos en con¬ 
diciones de utilizar nuestros nuevos comandos. 

Vamos a indicar a continuación cuáles son 
dichos comandos y de qué forma funcionan. 


El primero de ellos se utiliza para listar las 
variables alfanuméricas, y se puede usar de 
dos formas distintas, según la opción desea¬ 
da. 

Este nuevo comando es el siguiente: 

IVALFA 

escrito de esta forma, dicho comando produ¬ 
ciría un listado de todas las variables alfanu- 
méricas, indicando asimismo la línea en la que 
cada una de ellas se encuentra. 

Si por ejemplo existiera en memoria un pro¬ 
grama que tuviera la variable alfanumérica A$ 
en las líeas 20, 40, la variable HOLA$ en las 
líneas 50 y 100 y la variable B$ en las líneas 
20, 50 y 60, tras la ejecución del anterior co¬ 
mando, nos aparecería el siguiente listado: 

00020 A$ B$ 

00040 A$ 

00050 B$ HOLA$ 

00060 B$ 

00100 HOLA$ 

Otra manera de utilizarlo sería de la forma 
que se indica a continuación: 

IVALFA, "HOLA" 

La ejecución de este comando tal como es¬ 
tá escrito, produciría el listado de la variable 
alfanumérica 'HOLA$', indicando al mismo 
tiempo en qué líneas de programa se encuen¬ 
tra. 

Utilizando el ejemplo del hipotético progra¬ 
ma citado anteriormente, este comando, nos 
produciría un listado en pantalla, como el si¬ 
guiente: 

00050 HOLA$ 

00100 HOLA$ 

Este último comando nos será de utilidad 
cuando se desee conocer en qué partes del 
programa actúa una variable alfanumérica, 
y en particular en qué líneas de programa se 
está utilizando. 

Así pues, cuando se ejecute, se producirá la 
búsqueda de la variable introducida, y en el 
caso de ser encontrada se imprimirá en pan¬ 
talla. En el caso de que no exista ninguna va¬ 
riable de este tipo, no se producirá ningún ti¬ 
po de impresión en pantalla. 




Otro de los comandos de que disponemos, 
es el que se indica a continuación: 

IVNUME 

Dicho comando provoca el listado de todas las 
variables numéricas que contenga nuestro pro¬ 
grama, así como los números de línea donde 
se encuentran. 

Como hemos hecho anteriormente, supon¬ 
dremos que existe en memoria un programa 
que contiene en las líneas 10 y 60 la variable 
numérica 'POSX', en las líneas 20 y 90 la va¬ 
riable 'YPOS', y en la línea 40 la variable 'Dl- 
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ÑERO'. La ejecución del anterior comando, 
produciría un listado semejante al que se in¬ 
dica: 

00010 POSX 
00020 YPOS 
00040 DINERO 
00060 POSX 
00090 YPOS 

La otra variante de este último comando, 
nos permitirá buscar una variable numérica en 
particular, produciéndose únicamente la im¬ 
presión de dicha variable en pantalla, así co¬ 
mo los números de línea en que se encuentra. 


Este comando es el siguiente: 

IVNUME, "POSX" 

Su ejecución provoca la búsqueda de la ca¬ 
dena introducida entre comillas. En el caso de 
tener en memoria el programa anteriormen¬ 
te mencionado, provocaría la impresión en 
pantalla del siguiente texto: 

00010 POSX 
00060 POSX 


También 
por impresora 


El último comando del que disponemos, y 
no por ello menos importante es: 

IP 

el cual nos ofrece la opción de imprimir en 
pantalla o bien en impresora. 

Este comando actúa como una especie de 
commutador, es decir cuando, se pulsa, acti¬ 
va lo que anteriormente estuviera desactiva¬ 
do. 

Así, por ejemplo, si estamos produciendo un 
listado de variables en pantalla y ejecutando 
dicho comando, obligaríamos a que el lista¬ 
do saliera por impresora. Si ahora deseamos 
volver a listar en pantalla, únicamente debe¬ 
remos ejecutarlo otra vez. 

Vamos a ver a continuación cuáles son las 
principales rutinas de que consta nuestro pro¬ 
grama. 

En primer lugar se efectúa la instalación de 
los nuevos comandos RSX en el sistema; para 
ello se definen dichos comandos y se efectúa 
una llamada al firmware, que anuncia al sis¬ 
tema su creación. 

La primera rutina con que nos encontramos 
es la que se encarga de activar el comando 
con parámeteros, o bien sin utilizar ningún pa¬ 
rámetro. 

Registro A=0 indica que no hay parámetros 
Registro A < > 0 indica la existencia de pa¬ 
rámetros. 

De esta forma, el programa distinguiría las 
posibles opciones del comando RSX. 

Cuando no se utilicen parámetros, el pro¬ 
grama saltará inmediatamente a la rutina en¬ 
cargada de buscar todas las variables alfanu- 
méricas que existan en el programa. 

Para detectar dichas variables, se ha defi¬ 
nido en un buffer la cadena de bytes por la 
que pueden ser identificadas, y que es la si¬ 
guiente: 

Variable alfanumérica... 3,0,0,nombre 

dado que en este caso el nombre de la varia¬ 
ble no nos interesa, únicamente se buscará una 
cadena que contenga los tres primeros bytes. 

Una vez encontrada, conoceremos la exis¬ 
tencia de una variable alfanumérica en esa di¬ 
rección de memoria. Para reconocer de qué 
variable se trata tomaremos los bytes que si¬ 


guen a continuación, hasta encontrarnos con 
uno que contenga el valor de un carácter AS¬ 
CII al que se le ha sumado 128, ya que es de 
esta forma como el Basic almacena dichas va¬ 
riables. 

Veamos por ejemplo cómo se encontraría al¬ 
macenada en memoria la variable HOLA$: 

3,0,0,"H", "O", "L", "A" + 128 

Cuando se utilice el anterior comando con 
parámetros, en primer lugar se reconocerá 
qué parámetros se han introducido, y los co¬ 
locará en un buffer, detrás de los bytes 3,0,0 
identificativos de variable alfanumérica. 

A continuación se enviará el control del pro¬ 
grama a la rutina encargada de buscar cade¬ 
nas en memorias. Así por ejemplo si el pará¬ 
metro es la cadena "POSX", dicha rutina in¬ 
tentará localizar la siguiente secuencia de nú¬ 
meros: 

3,0,0,"P", "O", "S", "X" + 128 

Por último nos queda por describir el coman¬ 
do encargado de localizar las variables numé¬ 
ricas. La rutina utilizada, también chequea en 
primer lugar el contenido del acumulador para 
averiguar si se han enviado o no parámetros. 

En el caso de que no existan dichos pará¬ 
metros, se llama a la rutina encargada de lo¬ 
calizar este tipo de variables, las cuales pue¬ 
den ser reconocidas por la siguiente secuen¬ 
cia de bytes: 

13,0,0 

De esta forma, cuando se encuentre la ca¬ 
dena, se conocerá la existencia de una varia¬ 
ble numérica en esa dirección de memoria, por 
lo que tomaremos los bytes que siguen hasta 
encontrarnos con uno que contenga el valor 
de un carácter ASCII más 128, para conocer 
cuál es el nombre de dicha variable. 

Como podemos comprobar este tipo de va¬ 
riables se almacenan en memoria igual que las 
tratadas anteriormente. 

Cuando se utilice este último comando con 
algún parámetro, se tomará dicho parámetro 
y se colocará en un buffer a continuación de 
los bytes indicadores de variable numérica, y 
se llamará a la rutina de búsqueda para que 
los localice, y una vez encontrados se impri¬ 
mirán en pantalla. 

Una vez dadas las instrucciones de funcio¬ 
namiento y explicadas las rutinas más intere¬ 
santes, estamos en condiciones de poder uti¬ 
lizar correctamente el programa. 

Para ello deberemos copiar el listado ensam¬ 
blador que aparece a continuación, o bien te¬ 
clear el programa cargador. Aquéllos que uti¬ 
licen esta útlima opción, deberán ejecutar el 
programa una vez copiado, y en caso de que 
no dé ningún mensaje de error, se deberá sal¬ 
var de la forma siguiente: 

SAVE "RSX", B, $A000, 585 

Cuando se dese ejecutar, deberemos car¬ 
garlo en memoria de la forma indicada al prin¬ 
cipio de ese artículo, sin olvidarnos de efec¬ 
tuar la llamada a la dirección $A000, con el 
fin de inicializar los nuevos comandos. 
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10 

;VARIABLES 


730 

20 


□RG 

#AOOO 

740 

30 


LD 

BC,TABLA 

750 ; 

40 


LD 

HL,ESPACE 

760 BUSALF: 

50 


JP 

4BCD1 

770 

60 

TABLA: 

DEFW 

ÑAME 

780 

70 


JP 

VALFA 

790 

80 


JP 

VNUME 

800 

90 


JP 

IMPAN 

B10 

100 

ÑAME: 

DEFM 

"VALF" 

820 

110 


DEFB 

"A" -*-#80 

830 

120 


DEFM 

"VNUM” 

840 

130 


DEFB 

"E" <-#80 

850 BUSNUM 

140 


DEFB 

"P”+#80 

860 

150 


DEFB 

0 

870 

160 

ESPACE: 

DEFS 

4 

880 

170 

IMPAN: 

LD 

A,<PRESQR) 

890 

180 


CPL 


900 

190 


LD 

(PRESQR),A 

910 

200 


RET 


920 

210 

VALFA: 

AND 

A 

930 

220 


JP 

Z,ALFA 

940 ALFA: 

270 


LD 

L,(IX+0) 

950 

240 


LD 

H, (IX+1) 

960 

250 


LD 

A, (HL) 

970 

260 


INC 

HL 

980 

270 


LD 

E,(HL) 

990 

280 


INC 

HL 

ÍOOO 

290 


LD 

D,(HL) 

1010 

700 


EX 

DE, HL 

1020 NUMER: 

310 


LD 

DE,DATALF+3 

1030 

320 


LD 

C,0 

1040 

330 


LD 

B, A 

1050 

340 

MOS: 

LD 

A, (HL) 

1060 

350 


LD 

(DE),A 

1070 

360 


INC 

HL 

1080 

370 


INC 

DE 

1090 

380 


INC 

C 

tlOO INIC: 

390 


DJNZ 

MOS 

1110 

400 


LD 

A, C 

1120 

410 


LD 

(LQNCA),A 

1130 BUCL: 

420 


DEC 

DE 

1140 

430 


LD 

A, (DE) 

1150 

440 


ADD 

A, 12S 

1160 

450 


LD 

(DE),A 

1170 

460 


CALL 

BUSALF 

1180 

470 


RET 


1190 

480 

VNUME: 

AND 

A 

1200 

490 


JP 

Z,NUMER 

1210 

500 


LD 

L,(IX+O) 

1220 

510 


LD 

H,(IX+1) 

1230 

520 


LD 

A, (HL) 

1240 

530 


INC 

HL 

1250 

540 


LD 

E, (HL) 

1260 BUSC: 

550 


INC 

HL 

1270 

560 


LD 

D, (HL) 

1280 

570 


EX 

DE, HL 

1290 

580 


LD 

DE,DATNUM+3 

1300 

590 


LD 

C,0 

1310 

600 


LD 

B,A 

1320 

610 

MAS: 

LD 

A, (HL) 

1330 

620 


LD 

(DE),A 

1340 

630 


INC 

HL 

1350 

640 


INC 

DE 

1360 

650 


INC 

C 

1370 

660 


DJNZ 

MAS 

1380 

670 


LD 

A.C 

1390 BUC: 

680 


LD 

(LQNCA),A 

1400 

690 


DEC 

DE 

1410 

700 


LD 

A,(DE) 

1420 

710 


ADD 

A, 128 

1430 

720 


LD 

(DE),A 

1440 


CALL 

BUSNUM 

1450 

JR 

Z,INCCQ 

RET 


1460 

LD 

D, 0 



1470 

LD 

IX,(VARS) 

LD 

HL,DATALF 

1480 

JR 

NQINC 

LD 

(VARS),HL 

1490 INCCQ: 

INC 

D 

LD 

A,3 

1500 

INC 

IX 

LD 

(VARI),A 

1510 NQINC: 

DEC 

BC 

LD 

A,(LQNCA) 

1520 

LD 

A, B 

ADD 

A,3 

1530 

QR 

C 

LD 

(LQNCV),A 

1540 

JR 

NZ.BLC 

CALL 

INIC 

1550 

RET 


RET 


1560 FIN: 

LO 

A,(CQNCAN) 

LD 

HL,DATNUM 

1570 

AND 

A 

LD 

(VARS),HL 

1580 

JR 

NZ.FINU 

LD 

A, 2 

1590 

LD 

A, 13 

LD 

(VARI),A 

1600 

CALL 

IMPRE 

LD 

A,(LQNCA) 

1610 

LD 

A, 10 

ADD 

A,3 

1620 

CALL 

IMPRE 

LD 

(LQNCV),A 

1630 

PUSH 

HL 

CALL 

INIC 

1640 

CALL 

DECIMA 

RET 


1650 

PQP 

HL 

LD 

HL,VARALF 

1660 FINU: 

LD 

A,(VARI) 

LD 

(VARS),FC 

1670 

CP 

0 

XQR 

A 

1680 

JR 

Z,NQBUS 

LD 

(VARI),A 

1690 

CP 

1 

LD 

A,3 

1700 

JR 

Z,NQBUS 

LD 

(LQNCV),A 

1710 

LD 

A,(LQNCA) 

CALL 

INIC 

1720 

LD 

B, A 

RET 


1730 RESBU: 

DEC 

HL 

LD 

HL,VARNUM 

1740 

DJNZ 

RESBU 

LD 

(VARS),H_ 

1750 NQBUS: 

LD 

A, (HL) 

LD 

A, 1 

1760 

BIT 

7,A 

LD 

(VARI),A 

1770 

JR 

NZ,FINIM 

LD 

A, 3 

1780 

CALL 

IMPRE 

LD 

(LQNCV),A 

1790 

INC 

HL 

CALL 

INIC 

1800 

JR 

NQBUS 

RET 


1810 FINIM: 

RES 

7,A 

LD 

IX,(VARS) 

1820 

CALL 

IMPRE 

LD 

HL,#170 

1830 

LD 

A, (VARI) 

LD 

(DIREC),HL 

1840 

CP 

1 

LD 

B,(HL) 

1850 

JR 

Z,NQALF 

INC 

HL 

1860 

CP 

2 

LD 

C,(HL) 

1870 

JR 

Z,NQALF 

DEC 

HL 

1880 

LD 

A, 

LD 

A, B 

1890 

CALL 

IMPRE 

QR 

C 

1900 NQALF: 

LD 

A, ” “ 

RET 

Z 

1910 

CALL 

IMPRE 

CALL 

BUSC 

1920 

LD 

IX,(VARS) 

LD 

HL,(DIREC) 

1930 

LD 

D, 0 

LD 

DE,(LQNLIN) 

1940 

LD 

A,(CQNCAN) 

ADD 

HL, DE 

1950 

INC 

A 

LD 

(DIREC),HL 

1960 

LD 

(CQNCAN),A 

JR 

BUCL 

1970 

RET 


LD 

C,(HL) 

1980 VARALF: 

DEFB 

3,0,0 

INC 

HL 

1990 VARNUM: 

DEFB 

13,0,0 

LD 

B,(HL) 

2000 LQNCV: 

DEFB 

3 

INC 

HL 

2010 LQNLIN: 

DEFS 

2 

LD 

(LQNLIN),BC 

2020 NUMLIN: 

DEFS 

2 

LD 

E, (HL) 

2030 FINPRQ: 

DEFS 

2 

INC 

HL 

2040 DIREC: 

DEFS 

2 

LD 

D,(HL) 

2050 CQNCAN: 

DEFB 

O 

INC 

HL 

2060 VARS: 

DEFS 

2 

LD 

(NUMLIN),DE 

2070 VARI: 

DEFB 

O 

XQR 

A 

2080 LQNCA: 

DEFB 

O 

LD 

(CQNCAN),A 

2090 DATNUM: 

DEFB 

13,0,0 

LD 

D, 0 

2100 

DEFS 

20 

LD 

A,(LQNCV) 

2110 DATALF: 

DEFB 

3,0,0 

CP 

D 

2120 

DEFS 

20 

CALL 

Z, FIN 

2130 ; 



LD 

A, (HL) 

2140 ; 



CP 

(IX) 

2150 ;IMPRIME NUMEROS DECIMALES 

INC 

HL 

2160 ; 
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2170 

i 



2180 

DECIMA: 

SCF 


2190 


LD 

HL,(NUMLIN) 

2200 


LD 

DE,ÍOOOO 

2210 


INC 

HL 

2220 


LD 

A, 47 

2230 

DMIL: 

INC 

A 

2240 


SBC 

HL,DE 

4 2250 


JR 

NC,DMIL 

2260 


CALL 

PRINT 

2270 


LD 

DE,IOOO 

2280 

MIL: 

INC 

A 

t 2290 


SBC 

HL, DE 

2300 


JR 

NC,MIL 

2310 


CALL 

PRINT 

2320 


LD 

DE,100 

2330 

CIEN: 

INC 

A 

2340 


SBC 

HL, DE 

2350 


JR 

NC,CIEN 

2360 


CALL 

PRINT 

2370 


LD 

DE, ÍO 

2380 

DIEZ: 

INC 

A 

2390 


SBC 

HL,DE 

2400 


JR 

NC,DIEZ 

2410 


CALL 

PRINT 

2420 


ADD 

A, L 

2430 


CALL 

PRINT 

2440 


LD 

A, “ M 

2450 


CALL 

IMPRE 

2460 


RET 


2470 

PRINT: 

CALL 

IMPRE 

2480 


LD 

A, 47 

2490 


JR 

NZ,PAS 

2500 


INC 

HL 

2510 

PAS: 

ADD 

HL,DE 

2520 


INC 

HL 

2530 


RET 


2540 

IMPRE: 

PUSH 

AF 

2550 


LD 

A,(PRESQR) 

2560 


AND 

A 

2570 


JR 

Z,PANT 

2580 

WAIT: 

CALL 

«BD2E 

2590 


JR 

C,WAIT 

2600 


POP 

AF 

2610 


CALL 

«BD31 

2620 


RET 


2630 

PANT: 

POP 

AF 

2640 


CALL 

tBB5A 

2650 


PUSH 

HL 

2660 


PUSH 

DE 

2670 


PUSH 

BC 

2680 


PUSH 

IX 

2690 


PUSH 

AF 

2700 


LD 

A, 66 

2710 


CALL 

«BB1E 

« 2720 


CALL 

NZ,PAUSA 

2730 


POP 

AF 

2740 


POP 

IX 

2750 


POP 

BC 

2760 


POP 

DE 

2770 


POP 

HL 

2780 


RET 


2790 

PRESQR: 

DEFB 

0 

2800 

PAUSA: 

LD 

BC,30000 

2810 

PAUS: 

DEC 

BC 

2820 


LD 

A,B 

2830 


OR 

C 

2840 


JR 

NZ,PAUS 

2850 


CALL 

«BB03 

2860 


CALL 

#BB18 

2870 


RET 



ALFA 

AOAE 

PUC 

BUSALF 

A080 

BLJSC 

CIEN 

A1E7 

CONCAN 

DATNLJM 

AI 99 

DECIMA 

DIREC 

A192 

DMIL 

FIN 

A12B 

FINIM 

FINU 

A140 

IMPAN 

INCCO 

A122 

INIC 

LONCV 

A IBP 

LONLIN 

MIL 

A1DC 

MOS 

NOALF 

A172 

NOPUS 

NUMER 

A0C1 

NUMLIN 

PAS 

A20C 

PAUS 

PRESQR 

A239 

PRINT 

TABLA 

A009 

VALFA 

VARI 

A197 

VARNUM 

VNUME 

A056 

WAIT 

Table used: 

600 


A10C 

BUCL 

AODF 

A0F6 

BUSNUM 

A097 

A194 

DATALF 

A1P0 

A1C7 

DIEZ 

A1F2 

A1D1 

ESPACE 

A020 

A15D 

FINPRQ 

A190 

A024 

IMPRE 

A20F 

A0D5 

LQNCA 

A19Q 

A18C 

MAS 

A06C 

A042 

ÑAME 

A014 

A152 

NQINC 

A125 

A18E 

PANT 

A220 

A23D 

PAUSA 

A23A 

A204 

RESBU 

A14F 

A02C 

VARALF 

A185 

A188 
A216 

VARS 

A195 


rom ÍOOO 


lo RFM LISTADQR DE VARIABLES 
20 REM PROGRAMA CARGADOR 
"50 FOR N=Í.AOOO TQ Í.A249 
40 READ A:SUMA=SUMA+A 
50 POKE N,A 
60 NEXT 

70 IF SUMA<'-5B826 THEN PRINT "ERROR 
EN DATAS" 

BO DATA 1,9,160,33,72,160,195 
90 DATA 209,188,20,160,195,44,160 
100 DATA 195,B6,160,195,56,160,86 
110 DATA 65,76,70,193,B6,7B,85 
120 DATA 77,197,208,0,0,0,0 
130 DATA 0,58,57,162,47,50,57 
140 DATA 162,201,167,202,174,160,22 

150 DATA 110,0,221,102,1,126,35 
160 DATA 94,35,86,235,17,179,161 
170 DATA 14,0,71,126,18,35,19 
180 DATA 12,16,249,121,50,152,161 
190 DATA 27,26,198,128,IB,205,128 
200 DATA 160,201,167,202,193,160,22 
1 

210 DATA 110,0,221,102,1,126,35 
220 DATA 94,35,86,235,17,156,161 
230 DATA 14,0,71,126,IB,35,19 
240 DATA 12,16,249,121,50,152,161 
250 DATA 27,26,198,128,18,205,151 
260 DATA 160,201,33,176,161,34,149 
270 DATA 161,62,■',50, 151,161,58 
2B0 DATA 152,161,198,3,50,139,161 
290 DATA 205,213,160,201,33,153,161 
300 DATA 34,149,161,62,2,50,151 
310 DATA 161,58,152,161,198,3,50 
320 DATA 139,161,205,213,160,201,33 
330 DATA 133,161,34,149,161,175,50 
340 DATA 151,161,62,3,50,139,161 
350 DATA 205,213,160,201,33,136,161 
360 DATA 34,149,161,62,1,50,151 
370 DATA 161,62,3,50,139,161,205 
380 DATA 213,160,201,221,42,149,161 
390 DATA 33,112,1,34,146,161,70 
400 DATA 35,7B,43,120,177,200,205 
410 DATA 246,160,42,146,161,237,91 
420 DATA 140,161,25,34,146,161,24 
430 DATA 233,78,35,70,35,237,67 
440 DATA 140,161,94,35,86,35,237 
450 DATA 83,142,161,175,50,148,161 
460 DATA 22,0,58, 139,161,1B6, 204 
470 DATA 43,161,126,221.190,0,35 
480 DATA 40,9,22,0,221,42,149 
490 DATA 161,24,3,20,221,35,11 
500 DATA 120,177,32,226,201,5B,14B 
510 DATA 161,167,32,15,62,13,205 
520 DATA 15,162,62,10,205,15,162 
530 DATA 229,205,199,161,225,58,151 


540 DATA 161,254,0,40,11,254,1 
550 DATA 40,7,58,152,161,71,43 
560 DATA 16,257,126,203,127,32,6 
570 DATA 205,15,162,35,24,245,203 
580 DATA 191,205,15,162,5B,151,161 
590 DATA 254,1,40,9,254,2,40 
600 DATA 5,62,36,205,15,162,62 
610 DATA 37,205,15,162,221,42,149 
620 DATA 161,22,0,58,148,161,60 
670 DATA 50,148,161,201,3,0,0 
640 DATA 13,0,0,3,0,0,0 
650 DATA O,O,O,O,O,O,O 
660 DATA 0,0,0,13,0,0,0 
670 DATA O,O,O,O,O,O,O 
680 DATA O,o,O,O,O,0,0 
690 DATA O,O,O,O,O,3,O 
700 DATA O,O,O,O,O,O,O 
710 DATA O,O,O,O,O,O,O 
720 DATA O,O,O,O,O,O,O 
730 DATA 55,42,142,161,17,16,39 
740 DATA 35,62,47,60,237,82,48 
750 DATA 251,205,4,162,17,232,3 
760 DATA 60,277,82,48,251,205,4 
770 DATA 162,17,100,0,60,237,82 
7BO DATA 48,251,205,4,162,17,10 
790 DATA 0,60,237,82,48,251,205 
800 DATA 4,162,133,205,4,162,62 
810 DATA 32,205,15,162,201,205,15 
820 DATA 162,62,47,32,1,35,25 
870 DATA 35,201,245,58,57,162,167 
840 DATA 40,10,205,46,1B9,56,251 
850 DATA 241,205,49,189,201,241,205 
860 DATA 90,187,229,213,197,221,229 
870 DATA 245,62,66,205,30,187,196 
BBO DATA 5B,162,241,221,225,193,209 
890 DATA 225,201,0,1,48,117,11 
900 DATA 120,177,32,251,205,3,187 
910 DATA 205,74,187,201,0,0,0 



no realicen el iroba/o duro. M. H. AMS- 


TRAD lo hoce por ti. Todos los listados que incluyan 
este logotipo se encuentran o tu disposición en un cas¬ 
sette mensual, solicítanoslo. 
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AMSTRAD CPC 6128 


AMSTRAD CPC 464 


• TECLADO • Teclado profesional con 
"4 ’ec.as en 3 bloques - Hasta 32 teclas 
.rogramaDies - Teclado redefimbie 

• PANTALLA • Monitor RGB verde (12") 
■ :oior i4") 


- Se pueden definir hasta 8 ventanas de 
texto y 1 de gráficos • SONIDO 

• 3 canales de 8 octavas moduladas 
independientemente - Altavoz interno 
regulable - Salida estéreo • BASIC 

• Locomotive BASIC ampliado en ROM - 
Incluye los comandos AFTER'y EVERY 
para control de interrupciones 


UNIDAD CENTRAL. MEMORIAS 

• Microprocesador Z80A - 64K RAM 
ampliables - 32K ROM ampliables 
CASSETTE • Cassette incorporada con 
velocidad de grabación (1 o 2 Kbaudios) 
controlada desde Basic • CONECTÓRES 

• Bus PCB multiuso, Unidad de Disco 
exterior, paralelo Centronics, salida 
estéreo, joystick, lápiz óptico, etc. 

• SUMINISTRO • Ordenador con monitor 
verde o color - 8 cassettes con 
programas - Libro “Guía de Referencia 
BASIC para el programador" - Manual en 
castellano - Garantía Oficial AMSTRAD 
ESPAÑA. 


TODO POR 

59.900 Pts. (monitor verde) 


90.900 Pts. (monitor color) 


Alta Res. 

Multicolor 

80X25 

20X25 

2 de 27 

16 de 27 

640 x 200 

160 x 200 



Normal 

Col x lineas 

40X25 

Colores 

4 de 27 

Puntos 

320 x 200 


UNIDAD CENTRAL. MEMORIAS 

• Microprocesador Z80A - 128 K RAM 
ampliables - 48 K ROM ampliables 

UNIDAD DE DISCO • Unidad Ó 

incorporada para disco de 3” con 180K 
por cara • SISTEMAS OPERATIVOS 

• AMSDOS, CP M 2.2, CP M Plus (3.0) 

• CONECTORES • Bus PCB multiuso, 
paralelo Centronics, cassette exterior, 

2: Unidad de Disco, salida estereo, 
joysticks, lápiz óptico, etc. 

• SUMINISTRO • Ordenador con monitor 
verde o color - Disco con CP M 2.2 y 
lenguaje DR. LOGO - Disco con CP M 
Plus y utilidades - Disco con 6 programas 
de obsequio - Manual en castellano - 
Garantía Oficial AMSTRAD ESPAÑA. 


TODO POR 

84.900 Pts. (monitor verde) 


119.900 Pts. (monitor color) 


























PCW-8256 


AMSTRAD CPC ■ 6128 



TODO POR 129.900 Pts. 


Centronics • SUMINISTRO • Ordenador 
compieto con teclado, pantalla, Unidad 
de Disco e Impresora - Discos con el 
procesador de Texto LocoScnpt, CP M 
Plus, Mal'.ard BASIC DR.LOGO y diversas 
utilidades - Manuales en castellano - 
Garantía Oficial AMSTRAD ESPAÑA, 


UNIDAD CENTRAL. MEMORIAS 

• Microprocesador Z80A - 256K RAM de 
las que 112K se utilizan como disco RAM 

• TECLADO • Teclado profesional en 
castellano (ñ, acento...) de 82 teclas 

• PANTALLA • Monitor verde de alta 
resolución - 90 columnas x 32 líneas de 
texto • UNIDAD DE DISCO • Disco de 
3" y 173K por cara - Opcionalmente, 

2." Unidad de Disco de 1 Mbyte integrable 

• SISTEMA OPERATIVO • CP M Plus 
de Digital Research • IMPRESORA • 

Alta calidad (NLQ) a 20 c.p.s. - Calidad 
estándar a 90 c.p.s. - Papel continuo u 
hojas sueltas - Alineación automática del 
papel - Caracteres normales, 
comprimidos, expandidos, control del 
paso de letra (normal, cursiva, negrita, 
subíndices, superíndices, subrayado, etc). 

• OPCIONES • Kit de Ampliación a 
512K RAM y 2, á Unidad de Disco - 
Interface Serie RS 232C y paralelo 


Existe también la versión PCW 8512 con 
512K RAM y la 2. ; U nidad de Disco de 
1 Mbyte incorporada 1WJ¡a 
* El PCW 8256 puede utilizarse como 
terminal y en comunica o ones. 

El I.V.A. no esta incluido en los precios. 

NOTA: Es muy imporiante verificar la garantía del 
aparato ya que sólo AMSTRAD ESPAÑA puede 
garantizarle la ordenada reparación y sobre todo 
matenales de repuesto oficiales (Monitor, 
ordenador, cassette o unidades de discos). 

rt nnnrdrn rt tsiwA 


C/. Aravaca, 22. Tel. 4593001. Télex 47660INSC E. 

Fax 4592292. 28040Madrid. 

Delegación en Cataluña: C/. Tarragona, 110 Tel. 3251058 
08015 Barcelona. 


Los mas présanosos paquetes de 

Software Profesional, en forma:: 
AMSTRAD a “precios AMSTRAD 
















EL MUNDO DE 
LOS «PLOTTERS» 


Francisco G.R. 



I principio esta solución 
en válida para un tanto por ciento muy impor¬ 
tantes de usuarios. Pero, poco a poco, vamos 
comprobando que no es una reproducción 
muy perfecta la que obtenemos en la impre¬ 
sora. Hay varios puntos muy claros en este as¬ 
pecto: entre ellos podemos citar las circunfe¬ 
rencias, que no son tales sino más bien elip¬ 
ses, y luego tenemos las intersetciones o las 
líneas rectas que enlazan un par de puntos. 
Los enlaces con los puntos son perfectos, pe¬ 
ro la trayectoria de la recta deja mucho que 
desear con la realidad. 

Esto y la necesidad de adaptación a nece¬ 
sidades concretas nos obligan a buscar un pe¬ 
riférico de impresión más específico: el PLOT- 
TER. Este periférico está diseñado para tras¬ 
ladar al papel el desarrollo de un plano (en 
construcción), del diseño de piezas especiali¬ 
zadas, de diseño cartográfico, etc. 


Salidas por el canal 
de impresión 

En un ordenador hay que tener en cuenta 
las entradas y salidas de datos por los diferen¬ 
tes canales de la máquina. Como ejemplo, po¬ 
demos citar que, cuando estamos introducien¬ 
do datos por el teclado, éstos se imprimen en 
la pantalla por el canal de vídeo. Lo mismo 
sucede cuando mandamos información hacia 
la impresora o el Plotter: la llevamos por su 
canal. Este es el encargado de transmitir la in¬ 


formación contenida en la pantalla, o en un 
fichero, hacia el periférico que tengamos co¬ 
nectado. 

Comenzamos tratando las rutas que comu¬ 
nican el procesador y los módulos de entrada 
y salida de un microordenador. Para ello, em¬ 
pezamos con una introducción sobre las dife¬ 
rencias de comunicación Serie y Paralelo. 


Comunicación en Serie 


Especialmente cuando se trata de transmi¬ 
tir datos a larga distancia, la comunicación en 
Paralelo resultaría ¡nviable por el número de 
hilos necesario para la misma. Por ello, recu¬ 
rrimos a la transmisión en Serie, en la que los 
bit se suceden ordenadamente en el tiempo; 
sólo son estrictamente necesarios dos hilos ac¬ 
tivos de interconexión, uno para salida y otro 
para entrada de datos. 

La diferencia fundamental entre los interfa¬ 
ces para la transmisión en Serie y en Paralelo 
es que las series deben realizar la conversión 
del dato de Paralelo a Serie para la emisión, 
y viceversa para la recepción. 

Un ejemplo de un interface Serie es el 
RS-232C, cuyas siglas significan Recomended 
Standard. En este interface, además de llevar 
los dos hilos de interconexión, se dispone de 
una serie de señales que permite controlar la 
transmisión. 


Comunicación en paralelo 

Al contrario de lo que sucede con los inter¬ 
faces Serie, los paralelos tienen la ventaja de 
poder realizar transferencias de datos a muy 
alta velocidad, ya que se transmiten los carac¬ 
teres en una sola emisión. La desventaja fun¬ 




damental es el mayor número de hilos de in¬ 
terconexión y la corta distancia que pueden 
cubrir, no sólo en razón de su costo y com¬ 
plejidad, sino porque no son aptas para las 
comunicaciones por vía telefónica. 

Los interfaces paralelos, por no tener la ne¬ 
cesidad de adaptarse a un medio común (en 
el caso de los interfaces en Serie las líneas te¬ 
lefónicas eran este medio común), no se'han 
sujetado por lo general a ningún standard, y 
esto provoca que frecuentemente existan pro¬ 
blemas de incompatibilidades. Mediante una 
norma que se elaboró, llamada IEEE 488 y 
que incorporan la mayoría de los equipos ac¬ 
tualmente, aunque aún no todos, se intentó so¬ 
lucionar el problema de las incompatibilida¬ 
des. 


Programas con opción de 
Plotter en el mercado 


Cuando decidimos comprar un Plotter, mi¬ 
ramos las posibilidades de resolución que tie¬ 
ne éste, y el tamaño del folio que acepta. Tam¬ 
bién procuramos que disponga del mayor nú¬ 
mero de plumas de colores posibles, para dar¬ 
le una mayor calidad a los trabajos que reali¬ 
cemos. 

El primer paso a seguir será la adaptación 
de éste a nuestra máauina. Aunque depen¬ 
diendo de la calidad del Plotter, se puede o 
no controlar manualmente, tenemos la nece¬ 
sidad de gobernarlo a través de nuestro equi¬ 
po. Si comenzamos por estudiar los puertos de 
entrada y salida y cómo mandar la informa¬ 
ción, probablemente no utilizaríamos el Plot¬ 
ter desde el ordenador. 

Para ello nos vamos a programas ya comer¬ 
cializados y que nos den de alguna forma es¬ 
te problema resuelto. Si buscamos y miramos 
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bien los programas que existen, comprobare¬ 
mos que hay dos programas en el que se da 
la opción de salida por Plotter. Estos progra¬ 
mas son el D.R.praw y D.R. Grahp, los cua¬ 
les en las opciones de imprimir tienen la sali¬ 
da de Plotter. 

Cuando realizamos un dibujo con el D.R. 
Draw, una vez retocado, lo podemos mandar 
por la salida de Plotter, pero podemos encon¬ 
trarnos con la respuesta de «programa no pre¬ 
parado para salidas de ese periférico», o bien 
no recibir ninguna señal el Plotter. El mismo 
caso ocurre con el D.R. Graph: tenemos que 
preparar la salida del Plotter antes de su utili¬ 
zación. 

La inicialización del programa para el or¬ 
denador de que dispongamos viene explica¬ 
da en el manual, pero ya no es tan clara pa¬ 
ra instalar el Plotter. Lo primero que debemos 
tener en cuenta es el ¡nterface que lleva in¬ 
corporado nuestro Plotter. Dependiendo de 
ésta tenemos que obrar de una forma o de 
1 otra. 

Si tuviera un ¡nterface Serie, lo primero que 
necesitaríamos, tanto para la gama de los CPC 
r o de los PCW, sería la conexión de un inter¬ 
face Serie para el equipo. Este interface lo co¬ 
nectaremos a la salida que llevan nuestros CPC 
(hay que hacer constar que en el 6128, se co¬ 



necta en el Bus de salida impresora, mientras 
que en el 464 y los PCW 8256 y 8512, se co¬ 
nectan al Bus trasero de expansión). 

En caso contrario al anterior (interface Pa¬ 
ralelo), la cosa se reduce ha adquirir un ca¬ 
ble Centronics y conectarlo directamente al 
equipo. Esto se puede hacer con la gama de 
los CPC. Desgraciadamente para los usuarios 
de los últimos modelos lanzados de Alus¬ 
trad, hay que decir que obligatoriamente 
necesitan la compra del interface Paralelo, 
por carecer este equipo de una salida Cen¬ 
tronics. 

Cuando hemos solucionado todos los pro¬ 
blemas de tipo Hardware, de conexión entre 
ambos, tenemos que instalar el Software. Con 
la compra de nuestro ordenador nos dan unos 
discos de Sistemas Operativos, en los cuales 
también existen unas utilidades para la máqui¬ 
na. Efectivamente, uno de esos programas que 
hemos sacado por el directorio tantas veces 
y no sabemos para qué nos sirve y del cual 
no disponemos de ninguna información, es 
ahora mismo el programa más importante pa¬ 
ra la instalación. 

Cuando instalemos el programa para nues¬ 
tro equipo, debemos incorporar la salida per¬ 
tinente. Lo realizaremos colocando en el dis¬ 
co los DEVICE de OUTPUT de SID (cuando te¬ 
nemos conectados un interface en Serie), o 
CEN (caso contrario al anterior, el interface 
es Paralelo o Centronics). Cuando se trata de 
una salida en Paralelo, en los modelos Alus¬ 
trad CPC no hace falta preparar la salida, 
pues están tomados estos valores por defec¬ 
to. En el caso de Serie sí son necesarios, debi¬ 
do a tener que incorporarles al equipo un pe¬ 
riférico externo. 

Una vez preparados los DEVICE CEN o DE- 
VICE SID, el ordenador tiene conectados los 
canales de impresión para su uso. Seguida¬ 
mente debemos introducir en el disco el pro¬ 
grama con el cual el ordenador mande seña¬ 
les concretas y admitidas por el Plotter. Este 
programa nos viene con el equipo y se deno- 
■ mina: 

A > DDHP7470.PRL 

De él existen dos versiones dependiendo del 
Sistema Operativo y del equipo. Existe una en 
el disco número dos del CP/M Plus del 6128, 
y la otra se encuentra en la cara número tres 
de las utilidades del CP/M Plus del 8256/8512. 
Este programa debe colocarse inmediatamen¬ 
te después de los DEVICE, para su perfecto 
funcionamiento. 


Comandos de manejo 
de Plotter 


Al igual que en una impresora, un Plotter 
tiene sus comandos de uso interno. En una im¬ 
presora tenemos comandos de salto de pági¬ 
na, retroceso de carro y salto de línea, entre 
otros. 


En un Plotter estos comandos no existen, pe¬ 
ro sí tenemos otros, como pueden ser el cam¬ 
bio de tinta, posicionamiento en un punto del 
papel, radio de una circunferencia, etc. 

Como punto de interés por el usuario, va¬ 
mos a definir la mayoría de los comandos del 
Plotter para los intrépidos que deseen hacer 
uso de ellos. 

Comando: AA — Are Absolute (Arco Abso¬ 
luto) 

— Formato: AA x,y,a(,c) 
x=Punto de eje x. 
a=Grados 

y= Punto eje y. c= 
Grados de retroceso 

Comando: AR — Are Relative (Arco Re¬ 

lativo) 

— Formato: AR ¡x,iy,a(,c) 
ix = Incremento de x. 
a = Grados 

¡y=Incremento de y. 
c=Grados de retroceso 

Comando: Cl -CIRCLE (Circunferencia) 

— Formato: Clr (,c) 
c=Grados 

Comando: LB — Label (Etiqueta) 

— Formato: LB cl,c2,... 
cN[t] 

cN = Punto de comien¬ 
zo, alto, ancho, etc. 

t= Espacio entre eti¬ 
queta 



Comando: PU — Pen Up (Pluma Arriba) 
— Formato: PU; 

Comando: LB - Label (Etiqueta) 

— Formato: LB cl,c2,... 
cN[t] 
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Comando: 

Comando: 

Comando: 

Comando: 

Comando: 

Comando: 

Comando: 


cN = Punto de comien¬ 
zo, alto, ancho, etc. 

t= Espacio entre eti¬ 
queta 

PU Pen Up (Pluma Arriba) 

— Formato: PU; 

PD — Pen Down (Pluma 
Abajo) 

— Formato: PD; 

PA — Plot Absolute (Plot Ab¬ 
soluto) 

— Formato: PA; 

PR — Plot Relative (Plot Rela¬ 
tivo) 

— Formato: PR; 

FT — Fill Type (Relleno de Fi¬ 
gura) 

— Formato: FT; 

RA — Rectangle Absolute 

(Rectángulo Absoluto) 

— Formato: RA x,y 
x= Punto de eje x. y 
Punto eje y. 

CS — Desígnate Standard 

Character Set (Definir Ca- 
rác.) 

— Formato: CSn 

n=Número de Set de 
caracteres 



Comando: SS — Select Standard Set 
(Seleccionar un Standard) 
— Formato: SS, 

Comando: SA — Select Alternóte Set 
(Seleccionar uno propio) 
— Formato: SA; 

Comando: DT — Define Terminator (De¬ 
finir el término) 

— Formato: DT c; 
c=valor del punto 


•\V 

f 1 

V,' 

r* 


Comando: CA — Designóte Altérnate 
Character Set (Definir Ca- 
rác.) 

— Formato: CSn; 

n = Número de Set 
creado por usuario 


Comando: DI — Absolute Direction (Di¬ 
rección Absoluta) 

— Formato: DI ix,iy ; 

ix= Incremento en la 
dirección X 

iy= Incremento en la 
dirección Y 

Comando: DR — Relative Direction (Di¬ 
rección Relativa) 

— Formato: DR ¡x, iy ; 

ix = Incremento en la 
dirección X 

¡y = Incremento en la 
dirección Y 

Comando: SL — Character Slant (Elon¬ 
gación de carácter) 

— Formato: SL c ; 

c=Grados de elonga¬ 
ción 



¡ estás interesado en algún número de los 
yo publicados por Microhobby Amstrad, rea¬ 
lizo hoy mismo tu pedido porque ya hay algunos 
ejemplares agotados. 

No pierdas la oportunidad de disponer de la mejor 
obra publicada sobre ordenadores Amstrad. En todos 
sus números encontrarás interesantes artículos de inicia¬ 
ción, pokes, trucos, curso de código máquina, etc... 

¡No te pierdas detalle! 

Recorto o copio el cupón que aparece cosido en las páginas 
de la revista. 
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Simuladores 

DE COMBATE 

De todas las aventuras que podemos vivir sobre^ el 
teclado de un ordenador, tal vez una de las móí 
reales y emocionantes sea la de pilotar un avión 
de caza en busca de aparatos enemigos. 
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_ no de los clásicos en 

los programas de juego para ordenador, son 
los simuladores de vuelo. Su nacimiento data 
de hace tiempo, cuando los ordenadores per¬ 
sonales sólo se utilizaban para negocios. 


Estos programas estaban destinados a lle¬ 
nar los ratos libres de ejecutivos. Mientras se 
tomaba el café después de una reunión, sur¬ 
gía el momento idóneo para lucir ante los de¬ 
más nuestras habilidades como piloto. 

En un momento la pantalla del ordenador 
se convertía en el centro de atención, y las pa¬ 
labras de ánimo de los camaradas llenaban 
la sala. 

Con la llegada de los ordenadoles domés¬ 
ticos, y la aparición de un elevado número de 
clientes potenciales de los juegos, ha llegado 
también la producción masiva de software de 
entretenimiento, y cómo no, los simuladores 
de vuelo han tenido un lugar destacado en es¬ 
ta invasión de productos. 

Desde las primeras piezas de museo, en las 
que sólo salía en pantalla la línea del horizon¬ 
te, y unos cuantos indicadores digitales de al¬ 
titud, velocidad, etc., hasta los actuales, en los 
que impresionantes efectos tridimensionales 
hacen aparecer aviones enemigos que nos lan¬ 
zan misiles, la cosa ha evolucionado. 



Mucho más que tirar 
del joystick 


Dentro del mundo de los juegos, los simula¬ 
dores de combate ocupan un sitio especial. 

* Nos encontramos ante un tipo de juego que 
precisamente no es de matar marcianitos, es¬ 
tos programas requieren mucho más que ti¬ 
rar del joystick para su utilización. En ellos nos 
encontramos a los mandos de un caza, y he¬ 
mos de interceptar al enemigo, que se encuen¬ 
tra en una posición detectada por el radar en 
tierra. 

Una vez conocida la posición de nuestro 
enemigo, hemos de reproducir todo el proce¬ 
so que realizaría un piloto de verdad. 

En primer lugar hemos de despegar de la 
pista, para lo cual encenderemos el motor, ac¬ 
cionaremos los flaps, aceleraremos y nos ele¬ 
varemos. 

Cuando hemos cogido altura, es la hora de 
ocultar el tren de aterrizaje y consultar el ma¬ 
pa para localizar la posición del enemigo. 

Si el modelo de simulador es avanzado, el 
ordenador de abordo nos llevará automáti¬ 
camente al encuentro con él, si no, tendremos 
que navegar en su búsqueda, valiéndonos de 
todos los instrumentos de navegación. 

Tras varios minutos de singladura, nos en¬ 
contramos en la posición del avión a cazar: 
el mapa nos indica su proximidad y nuestros 
ojos escudriñan el aire a nuestro alrededor en 
su búsqueda. 

Al fin vemos un punto que se aproxima ha¬ 
cia nosotros; es el momento de armar el siste¬ 
ma de misiles y prepararnos para abordarle. 

Con el dedo sobre el botón de disparo, in¬ 
tentamos ponernos a la cola del avión enemi¬ 
go aumentando la velocidad; cuando nos en¬ 
contramos tras su estela, una ligera pulsación 
del disparador y presenciamos la trayectoria 
del misil tras el reactor del aparato. Unos se¬ 
gundos después la explosión del aparato, nos 
permite añadir una muesca más a nuestro ré¬ 
cord de derribos. 

Pero mientras observamos con orgullo có¬ 
mo caen los restos del caza enemigo, nuestros 
momentos de falta de concentración, han si¬ 
do aprovechados por otro caza para colocar¬ 
se a nuestra cola. 

Sólo nos queda intentar una maniobra de 
defensa, o seremos derribados inmediatamen¬ 
te. Forzando al máximo las posibilidades de 
nuestro caza, realizamos una tijera para in¬ 
tentar colocarnos a su cola. 

Hemos fallado en nuestro intento de eva¬ 
sión, y la situación se complica, intentamos un 
giro en el aire, pero ya es demasiado tarde, 
un misil ha sido lanzado y su impacto llega cer¬ 
tero con una terrible explosión que inunda de 
fuego nuestra cabina. 

En el espacio de tiempo transcurrido desde 
nuestro despegue, hasta el contacto con el 
avión enemigo, hemos tenido que accionar un 
elevado número de controles, al igual que vi- 
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gilar el calentamiento de motores, gasto de 
combustible, controlar el rumbo, etc. 

En el combate hemos de situar la mira, 
aumentar velocidad, colocarnos a la cola del 
enemigo, armar misiles, tirar de la ametralla¬ 
dora y derribar al otro caza. 

Estos son los factores que hacen de un simu¬ 
lador de combate, un programa mucho más 
complicado e interesante que una simple ma¬ 
tanza de marcianitos. 


Computadora de vuelo, se utiliza indistinta¬ 
mente para servir de guia en el aterrizaje, así 
como para el combate aéreo, donde se de¬ 
muestra su eficacia. 

Indicador de aterrizaje, con él podemos 
comprobar que nuestra maniobra es correc¬ 
ta, midiendo el ángulo de inclinación que lle¬ 
vamos. 

Combustible, indicador del tren de aterrizaje 
y mapa. 





El camino de los simuladores de combate en 
el Amstrad, se inicia con el Fihgter Pilot, pro¬ 
grama de la casa Digital Integration. 

En este caso estamos a los mandos de un 
F-15, y nos disponemos a interceptar al ene¬ 
migo. 

La cabina de mandos aparece ante nuestros 
ojos, cuajada de instrumentos e indicadores. 
Para pilotar nuestro avión disponemos de una 
amplia gama de controles: 

Horizonte artificial, con un avión indicador 
de la posición y los valores numéricos de los 
ángulos. 

Altímetro e indicador de velocidad. 

Indicador de velocidad vertical, con el cual 
podemos determinar la velocidad de ascenso 
o descenso de nuestro caza. 

Empuje, con indicador gráfico de por¬ 
centaje de fuerza de propulsión y 
calentamiento de motores. 

Radar y brújula, con los cuales 
dirigimos nuestro caza, apoyándo¬ 
nos en las distintas bases de tierra, o 
siguiendo en el mapa la posición de nues¬ 
tro enemigo. 

Modo de combate. 

Con él iniciamos la maniobra de aproxima¬ 
ción a nuestro blanco. Al ser activado se po¬ 
nen en funcionamiento el radar y la compu¬ 
tadora de vuelo, dándonos los datos exactos 
de su posición y altitud. 


Indudablemente una amplia gama de ins¬ 
trumentos e indicadores, que gobiernan el ca¬ 
za. Para pilotar el F-15 tenemos que manejar 
¡unto con el joystick 16 teclas, lo que da idea 
de la complejidad de la operación de pilotar 
este aparato. Nos encontramos ante un pro¬ 
grama en el que el manejo del avión, debido 
al elevado número de controles, resulta un po¬ 
co costoso; en todo momento ante nuestros 
ojos tenemos presentes los tableros de man¬ 
dos y a la vista a través de la cabina del piloto. 

Los gráficos en tres dimensiones están he¬ 
chos a base de líneas, prescindiendo de la 
utilización del colorido; la sensación tri¬ 


dimensional es aceptable, pero poco espec¬ 
tacular. 

Un programa con excesivo número de te¬ 
clas a utilizar, en el cual la navegación se ha¬ 
ce lenta y la localización del enemigo bastan¬ 
te laboriosa, recomendado especialmente pa¬ 
ra los meticulosos de las técnicas de vuelo, que 
se tendrán que armar de paciencia hasta po¬ 
nerse a la cola del enemigo. 
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Dambusters 


Todos los programas tratados anteriormen¬ 
te, tenían una característica en común; aun¬ 
que se tratara de modelos más antiguos o mo¬ 
dernos, siempre pilotábamos un caza, el Ha- 
rrier, el Spitfire, el F-l 5, o el futurista Skyfox. 

Pero como la calenturienta imaginación de 
los creadores de software no puede estancarse 
en la vulgaridad, se les ocurre romper con to¬ 
dos los moldes, reproduciendo una acción de 
guerra real de la Segunda Guerra Mundial. 

En primer lugar, ya no pilotamos un caza, 
sino que estamos a los mandos de un bombar¬ 
dero pesado Lancaster, y como toque distin¬ 
tivo, nuestro objetivo son las presas de la zo¬ 
na industrial del valle del Ruhr, en pleno co¬ 
razón de la Alemania nazi. 

Como se trata de manejar un bombardero 
pesado, ya no basta con la visión a través de 
la cabina del piloto, como en los cazas, aquí 
tenemos una completa dotación de personal 
con distintos puestos asignados, a los que no¬ 
sotros debemos sustituir. 

Los puestos que hemos de ocupar son los de 
piloto, artillero principal, artillero de cola, ope¬ 
rador de bombas, navegante, ingeniero jefe 
e ingeniero segundo. 

El programa está concebido de forma que 
el cambio de puesto se realize de forma fácil, 
y permita el desarrollo paralelo de la misión 
sin interrupciones. 

Cada elemento de la tripulación, tiene asig¬ 
nada una pantalla distinta, de forma que con 
un simple toque de tecla cambiamos al pues¬ 
to deseado. 

Con este método conseguimos dominar el 
aparato, solamente con el ¡oystick y el uso de 
siete teclas, facilitando la complicada tarea 
que representa hacer las veces de la dotación 
completa de un Lancaster. 

Para romper más aún con la línea clásica de 
los simuladores de vuelo, Dam Busters intro¬ 
duce un nuevo sistema de pilotaje, que no re¬ 
quiere la pulsación ni de media tecla. 


La sala de máquinas, donde se encuentran 
los mandos que gobiernan los motores del 
avión, asombrosamente está toda gobernada 
por el ¡oystick. 

Una vez que nos encontramos en la panta¬ 
lla del ingeniero ¡efe, aparecen los ocho indi¬ 
cadores de revoluciones y de inyección, y las 
ocho palancas que los accionan, más las cua¬ 
tro que sirven para extinguir el fuego en ca¬ 
da uno de los motores. 

No hemos de olvidar que el Lancaster está 
dotado de cuatro motores, cada uno de los 
cuales se puede manejar por separado. 

Para accionar toda esta serie de mandos só¬ 
lo hemos de hacer uso exclusivo del joystick. 
Un punto negro aparece debajo del grupo de 
palancas y para manejar la deseada sólo he¬ 
mos de mover el punto hasta ella, y una vez 
situada debajo tirando del ¡oystick hacia arri¬ 
ba o hacia abajo, la palanca se mueve en la 
misma dirección. 



Con este método gráfico de accionamiento 
de controles, no hay problemas de teclas ni 
de vigiliar números. 

Todo el programa está tratado con unos 
gráficos excelentes, el dibujo de cada panta¬ 
lla, ayudado por el efecto de la visión noctur¬ 
na, está tratado con un hiperrealista efecto 
perspectivo, pareciendo realmente que nos en¬ 
contramos dentro de las distintas cabinas. 


Un programa con un concepto totalmente 
nuevo, realizado con excelentes gráficos, y en 
el que los distintos puestos que hemos de ocu¬ 
par, y la minuciosidad con que hemos de es¬ 
tudiar el lanzamiento de las bombas rompe¬ 
doras, le dotan de un interés y emoción insu¬ 
perables. Su creadora la casa U.S. Gold. 

Como podemos ver los usuarios de Amstrad 
interesados por el mundo de los simuladores 
de vuelo, tienen una amplia gama de posibi¬ 
lidades para elegir. 

Sea cual sea el tipo de programa que más 
se ajuste a nuestras preferencias, encontrare¬ 
mos uno a nuestra medida. 

Si deseamos un simulador de los de la vieja 
escuela, con largas maniobras de vuelo y 
aproximación, manejando multitud de contro¬ 
les, tenemos el Fighter Pilot. 

Si por el contrario nuestro gusto se dirige ha¬ 
cia maniobras más rápidas, utilizando un nú¬ 
mero más reducido de controles; aderezadas 
con unas pantallas de cabina y panel de man¬ 
dos, de un sobervio realismo gráfico, nuestro 
programa es el Spitfire 40. 



Para los amantes de aviones más modernos 
y sotisficados, en los que hemos de manejar 
una gran cantidad de controles, y en los que 
la misión pasa a ser estratégica, incluyendo 
combates tierra aire y aire aire, la solución idó¬ 
nea es el Strike Forcé Harrier. 

Los que no quieran complicarse la vida con 
multitud de teclas y largas aproximaciones de 
vuelo, lo tienen muy fácil: el Skyfox ofrece la 
posibilidad de aniquilar a base de misiles o 
ametralladora; tanques y escuadrillas enemi¬ 
gas, en un programa de acción total y los me¬ 
jores efectos tridimensionales. 

Los que en cambio quieran reproducir el cur¬ 
so de la historia, se econtrarán de lleno en la 
misión más audez de la Segunda Guerra Mun¬ 
dial, a los mandos de un bombardero Lancas¬ 
ter, en un programa en que todo ha sido he¬ 
cho para manejarse sin esfuerzo, con excelen¬ 
tes gráficos y en el que las emociones de una 
incursión nocturna se saborean hasta el final. 

Después de ver todo esto, ¿quién no se pre¬ 
gunta cómo serán los nuevos simuladores de 
vuelo? 
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TJUKE FORO 
¿HARRIER 


rrizaje, bases de misiles SAM, tanques, avio¬ 
nes y misiles enemigos. 

Por último témenos la pantalla de mensajes, 
que es la terminal del ordenador de vuelo, en 
la que se nos da información de inestimable 
valor. 

Sin ninguna duda estamos ante el más com¬ 
pleto y sofisticado de los simuladores tratados 
hasta ahora. Las características del Harrier con 
sus motores orientables y el concepto totalmen¬ 
te nuevo de este avión de combate, hacen que 
su conducción requiera una técnica distinta a 
la de los aviones convencionales. 

El número de teclas que accionan los distin¬ 
tos controles y dispositivos es de 20 más el joys- 
tick; un completo panel de mandos. 

Este programa, además de las característi¬ 
cas de simulación de vuelo, introduce una nue¬ 
va variante en los simuladores y nuestra mi¬ 
sión no sólo se limita a derribar aparatos ene¬ 
migos, sino que se trata de una completa in¬ 
cursión en su territorio. 

Nuestro objetivo es su Cuartel General, que 
se encuentra a 500 millas de nuestra posición. 
Para llegar hasta él, hemos de combatir a las 
fuerzas acorazadas enemigas que hostigan 
nuestros puntos de apoyo en tierra, las cua¬ 
les nos servirán para reabastecer las deficien¬ 
cias de armamento y combustible. 

Aparte de los combates aire tierra, también 
tenemos que eliminar a los cazas MIG-26, que 
patrullan los aires en nuestra búsqueda. 

Harrier es un completo simulador de vuelo, 


producto de una calidad ¡nmejora- 
ble. 

Si hay algo que impresiona al 
abrir la carpeta de Harrier, es el librito de ins¬ 
trucciones, que contiene 26 páginas, las cua¬ 
les están cuajadas de explicaciones de los ins¬ 
trumentos que manejamos, técnicas de vuelo, 
controles, descripción de la misión, y una com¬ 
pleta guía ilustrada de las distintas técnicas de 


Localización de 
puntos de aterrizaje, 
donde el personal de tie¬ 
rra puede abastecernos. 

Mira de misil. 

Visualización multifuncional; con informa¬ 
ción del vuelo y estado del armamento, po¬ 
tencia de empuje, vector de empuje, alimen¬ 
tación de combustible, posición de flaps, tren 
de aterrizaje y frenos. 

Radar de ataque aéreo; que detecta en un 
radio de cinco millas la posición tanto de avio¬ 
nes enemigos, como de misiles SAM y radar 
de identificación y seguimiento; con él pode¬ 
mos reconocer el terreno que se encuentra 
dentro del área de operaciones, en él se iden¬ 
tifican montañas, bases de tierra, pistas de ate- 


dotado de buenos gráficos tridimensionales 
realizados a todo color, y en el que se intro¬ 
ducen conceptos de misión completa, en la que 
la estrategia y el aprovechamiento de las ex¬ 
cepcionales características de nuestro caza 
marcan la diferencia. 

Otro gran programa de Mirrorosoft. 


defensa y ataque en vuelo que permite nues¬ 
tro Harrier. 

En la cabina de mandos tenemos los siguien¬ 
tes controles: VAV dispositivo de información 
de vuelo. Con él podemos obtener los datos 
de velocidad vertical, velocidad relativa, gi¬ 
rocompás, altura sobre el nivel del suelo 
■ y cabeceo del avión respecto a la hori- 
zontal. 

Mira de bombas, con el punto de 
posible impacto si se suelta 
Ufe*., una bomba. 


El protagonista de esta nueva 
pieza de software, es el famoso 
Harrier, un avión mucho más 
próximo a nosotros que el ante¬ 
rior, y con la especial caracterís¬ 
tica de que sus motores orienta- 
bles, le permiten despegar 
y aterrizar en vertical. 

El programa es de la 
misma casa que el an¬ 
terior, por lo cual a pri¬ 
mera vista ya sabemos 
que encontraremos un 
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JUEGA EL JUEGO DEL QUE TODOS HABLAN I 
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LANCASTER B MK I /III (OAM BUSTER) 


¡Apasionante! 


Son las 21 15 horas del 16 de Mayo. Un bombardero Lancaster en vuelo especial, despega de Inglaterra hacia Alemania. Después de meses 
de preparación, el escuadrón 617 vuela en una operación destinada a cambiar el curso de la II Guerra Mundial Su objetivo es destruir las 
más importantes presas alemanas para paralizar los puntos vitales de sus fábricas de armamento. 

Este detallado y auténtico simulador te permite ocupar los puestos de Piloto, Ingeniero de vuelo. Artillero delantero y trasero, 
Bombardero y Navegante. Volarás a través del Canal de la Mancha y Europa intentando evitar a los temibles ME- 110 alemanes, zeppe- 
lines, focos antiaéreos y todos los demás peligros a los que se enfrentó el comando Inglés. 
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PIDE ESTOS PROGRAMAS A ERBE, SANTA ENGRACIA 17, 28010 MADRID. TFN. (91) 447 34 10 - Y EN LAS MEJORES 
TIENDAS DE INFORMATICA TIENDAS Y MAYORISTAS.. CUMPLIMENTAMOS SUS PEDIDOS EN 24 HORAS 









































Spitfire 


En Spitfire 40 encontramos excelentes gráfi¬ 
cos, emoción y tensión; el manejo del aparato 
no requiere horas de práctica, y la localización 
de enemigos se realiza de forma bastante rá¬ 
pida. Un programa en el que en la fase de com¬ 
bate se pueden ejecutar técnicas de evasión, pi¬ 
cados, loopings y lo que nos apetezca para po¬ 
nernos a la cola del caza enemigo y aniquilar¬ 
le. 

La casa autora del softwares es Mirrorsoft. 


En este programa nos encontramos ante un 
modelo histórico, el mítico avión de caza de la 
II Guerra Mundial. 

Nuestra cabina de mandos tiene los siguien¬ 
tes indicadores: horizonte artificial, indicador 
de velocidad vertical, revoluciones del motor, 
brújula, altímetro, timón de cola, indicador de 
giro y deslizamiento e indicador de inclinación. 

El conjunto de indicadores y manecillas, re¬ 
producen exactamente los controles de este 
avión, permitiendo un pilotaje preciso y no ex¬ 
cesivamente complicado. 

Unos minutos de práctica siguiendo los con¬ 
sejos de las instrucciones, nos permitirán hacer¬ 
nos con el aparato; en total manejamos 10 te¬ 
clas ¡unto con el ¡oystick. 

Hasta aquí, podríamos decir que nos encon¬ 
tramos ante un simulador más, brújula, altíme¬ 
tro, tren de aterrizaje, ¿Pero qué aporta de nue¬ 
vo este programa? 

Hemos de decir que lo mejor del Spitfire 40, 
son sin lugar a dudas los gráficos. En este pro¬ 
grama se ha salido del concepto tradicional de 
simulador de combate, para entrar en una nue¬ 
va dimensión en esta clase de programas. 

La diferencia de los demás, en el Spitfire te¬ 
nemos la auténtica sensación de encontrarnos 
en la cabina del piloto. 

Tenemos dos vistas básicas; la del tablero de 
mandos y la de visión del exterior, ca¬ 
da una de las cuales está trata¬ 


da con una riqueza gráfica, que parecen de 
verdad. 

En el tablero de mandos, los indicadores es¬ 
tán compuestos por relojes, manecillas y brú¬ 
julas, todas hechas reproduciendo exactamen¬ 
te los mandos del avión de la II Guerra Mun¬ 
dial. 

La visión a través de la cabina está enmar¬ 
cada por las barras que soportan el fuselaje, 
dibujadas con un gran efectismo tridimensional, 
que nos incita a descubrir lo que hay detrás. 

Todos los gráficos están hechos en el modo 
de dieciséis colores, lo que ayuda a darle es- 
pectacularidad al juego. 

Si hasta aquí el programa parece bueno, no 
es nada con lo que nos espera en el combate. 

Cuando nos aproximamos al avión enemigo, 
entonces sí podemos apreciar que es un pro¬ 
grama en tres dimensiones: delante de noso¬ 
tros la negra silueta de un caza, se mueve in¬ 
tentando esquivarnos. Comenzamos a ametra¬ 
llarle sin piedad, y nuestro adversario intenta 
un giro para escapar. Cuando nos acercamos 
a él su tamaño crece desmesuradamente y una 
certera ráfaga le hace caer. 
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Cinco niveles, quince 
escenarios y capacidad 
de juego estratégico. 


Simulación de vuelo tri 
iimensional de combate 
aereo y ataque al suelo. 


Estás en la cabina del caza que sería el sueño 
de cualquier piloto, pero desde luego eres un 
mal sueño para el pobre tipo que tienes delante, confiado 
en una misión sin problemas. Caliéntale la tobera con tus 
láser y apartate mientras estalla en una 
bola de luego. Rápidamente ponte en 
picado para caer sobre los blindados 
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Si hasta ahora hemos tratado simuladores 
de vuelo, en los que el control del aparato re¬ 
quería el manejo de una larga serie de teclas 
y controles, en Skyfox se simplifica este pro¬ 
ceso para hacer que la conducción del caza 
se realice única y exclusivamente con el ¡oys- 
tick. 

Con Skyfox, salimos de los típicos simulado¬ 
res de vuelo, y nos adentramos en una ver¬ 
sión más cercana a los arcades. En este pro¬ 
grama la acción se desarrolla a ritmo trepi¬ 
dante, y nos vemos envueltos en una lluvia de 
fuego, aniquilando uno tras otro tanques y 
aviones enemigos. 

Nuestro panel de mandos está compuesto 
por los siguientes indicadores: 


Coordenadas de vuelo, reloj digital, pantalla 
de radar, brújula digital, indicadores de ve¬ 
locidad y altitud, nivel de combustible, esta¬ 
do del escudo protector y número de misiles 
disponibles. 

En la misma pantalla aparece la cabina del 
piloto junto con el panel de mando. La visión 
a través de la cabina es uno de los puntos fuer¬ 
tes de este programa. 

En él encontramos los mejores efectos tridi¬ 
mensionales producidos por cualquier progra¬ 
ma de esta clase. La sensación de velocidad 
y acercamiento a los elementos hostiles, es ver¬ 
daderamente apabullante. 

Los gráficos de tanques y aviones aumen¬ 
tan de tamaño considerablemente al acercar¬ 


nos a ellos, siendo sin duda los más grandes 
que se ha visto en esta clase de programas. 

Esto refuerza considerablemente la sensa¬ 
ción de acercamiento y velocidad, parecien¬ 
do incluso que podríamos hasta chocar con¬ 
tra ellos. 

Una innovación interesante, que facilita con¬ 
siderablemente la aproximación a los cazas 
enemigos, es la inclusión del piloto automáti¬ 
co de intercepción; con este sofisticado artilu- 
gio, el ordenador de vuelo del Skyfox nos lle¬ 
va directamente hacia los aviones detectados 
por el radar. 

De esta forma evitamos largas navegacio¬ 
nes de aproximación a los objetivos, hacien¬ 
do que el combate se desarrolle de forma rá¬ 
pida y sin que dejemos de accionar el dispa¬ 
rador del ¡oystick ni un solo instante. 

Para hacer fuego contra blancos difíciles dis¬ 
ponemos de dos tipos de misiles: los guiados 
por el calor y los autodirigidos, con los cuales 
podemos atacar a las escuadrillas de cazas 
que aparecen ante nosotros. 

Nos encontramos ante el simulador de com¬ 
bate que se maneja con más facilidad. En 
Skyfox no hay que realizar complicadas ope¬ 
raciones de despegue y mantenimiento del 
rumbo, etc. 

Aquí todo se desarrolla de forma rápida y 
persiguiendo la total aniquilación de lo que 
aparezca por pantalla, los blancos son detec¬ 
tados por el radar, y el piloto automático nos 
dirige a su posición con sólo pulsar un botón. 

Un caza de la tercera guerra mundial, que 
pilotaremos con total soltura, sin haber trans¬ 
currido más de dos minutos desde que nos ha¬ 
llamos sentados a los mandos. 

Skyfox es un producto de Electronics Arts. 
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ROBOTICA 


Los avances técnicos logrados durante los últimos 
años del siglo XX superan a todos los realizados 
durante el resto de la Historia del hombre. Si esto 
ya de por sí es suficiente atractivo, hay un tema 
cuyo desarrollo lo hace aún mucho más excitante: 
¡Estamos hablando del robot! 

Y ¿qué poder tiene el robot que no tienen otros 
descubrimientos, incluido el ordenador (mal 
llamdo «cerbro electrónico»)? 


^sZ^S^^esde los tiempos más 
remotos se ha convertido al robot en un mito 
universal que aparece en todas las culturas y 
religiones que tienen un mínimo de tradición. 
Vamos a tomar dos ejemplos representativos 
de todos los que existen en la nuestra para no 
extendernos mucho y además porque es la que 
mejor conocemos. ¿De acuerdo?. 

¿Quién no recuerda la odisea de aquel es¬ 
cultor, llamado Pygmalión, que se enamoró 
tan tiernamente de una de sus figuras de már¬ 
mol que conmovió el corazón de la diosa Ate¬ 
nea hasta el punto que dio vida a la obra y 
la convirtió en una Galatea de carne y hue¬ 
so? 

Y, por cierto, esta historia tiene un reflejo 
mucho más moderno. Suponemos que a na¬ 
die se le habrá pasado por alto el paralelis¬ 
mo que tiene con la historia de Pinocho que 
más tarde escribió Collodi. Esto nos confirma 
que a pesar del paso de los años, la idea de 
la escultura animada sigue interesando. 

Pero no son los únicos. La tradición hebrea 
nos habla de una figura de barro, a la que se 
da forma bajo las leyes de la Cábala y debe 
modelarse en un momento especialmente di¬ 
fícil para la Humanidad, para después insu¬ 
flarle la vida por medio de una Estrella de Da¬ 
vid colocada a la altura del «corazón». Se 
trata del «Golem». 

La reflexión más importante que podemos 
sacar de esta historia es que el hombre crea¬ 
ba al Golem para salvar a la Humanidad de 
algún mal y, una vez superado el peligro, se 
le destruía. Era como una especie de héroe- 
esclavo que«nacía» con un determinada fi¬ 
nalidad y cuando ya había conseguido cum¬ 
plirla, sencillamente desaparecía. 

Además de esta vertiente mitológica, los ro¬ 


bots nos atraen por un montón de cosas más. 
No cabe duda que para la mayoría de las per¬ 
sonas es muy difícil dejar atrás esa especie de 
«morbo» ligado íntimamente a los muñecos, 
las figuras de cera, los androides que repre¬ 
sentan algo que se queda a medio camino en¬ 
tre la vida y la falta de ella, la imitan pero son 
incapaces de participar, al menos consciente¬ 
mente, en alguno de sus aspectos. 

Hasta ahora hemos estado utilizando con to¬ 
da soltura y sin el mínimo recato la palabra 
«robot», y tenemos que decir que hemos te¬ 
nido un tremendo lapsus. En el año 1917 se 
emplea por primera vez, y con propiedad di¬ 
cha palabra en la obra Opilec de Karen Ca- 
pek, donde se da forma a cada uno de los con¬ 
ceptos que la componen. 

Y es en 1942 cuando se comienza a oír ha¬ 
blar de la «robótica» como ciencia que trata 
de los robots, por supuesto. Isaac Asimov fue 
el iniciador e impulsor de esta nueva parcela 
del conociminto, así como de otras muchas ya 
conocidas por todos nosotros. 

De este modo lo anterior a estas fechas en¬ 
tra dentro del hombre artificial o del autóma¬ 
ta, que sería el más claro precedente del ro¬ 
bot. 

Para conocer datos certeros sobre el cam¬ 
po de los autómatas nos encontramos con pro¬ 
blemas verdaderamente insalvables. Muchos 
de ellos han desaparecido y no podemos com¬ 
probar que fueran capaces de realizar las ma¬ 
ravillas que sus creadores cuentan largamen¬ 
te en sus crónicas. 

Sin embargo, sí tenemos pruebas de verda¬ 
deras e ingeniosas maravillas que funcionan 
a base de aire, vapor de agua o complicados 
sistemas de relojería que, como ya hemos di¬ 
cho, pueden considerarse antecesores (leja¬ 
nos, eso sí) de los robots. Pero dejemos este 
tema aconsejando a los interesados que bus¬ 
quen en su localidad algún museo donde es¬ 
tén recogidas algunas de estas sorprendentes 
máquinas. 






Fue a partir de la Segunda Guerra Mundial 
cuando las grandes empresas comenzaron a 
interesarse por la automatización para mejo¬ 
rar la producción en cadena de fábricas y ta¬ 
lleres. Los primeros robots industriales se uti¬ 
lizaron en aplicaciones tales como coger pie¬ 
zas y colocarlas en un determinado sitio. 

Dentro de este campo hay que destacar la 
figura de George C. Deval, considerado co¬ 
mo el padre de la robótica. Desde nuestra 
perspectiva actual sus creaciones pueden pa¬ 
recemos un poco ingenuas. Por otra parte era 
un fiel seguidor de Asimov, lo que quiere de¬ 
cir que quizá fuera más imaginativo que teó¬ 
rico, pero en 1954 ya había postulado todos 
los elementos y conceptos que forman parte 
de los actuales robots industriales. ¿Está de 
acuerdo con nosotros en que todo eso le con¬ 
vierte en el verdadero padre de la «robóti¬ 
ca»? 
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Sin ir más lejos reconoció que todavía exis¬ 
tía un largo camino por recorrer en este cam¬ 
po ya que los prototipos de su creación tenían 
grandes deficiencias. Y también contagió su 
entusiasmo a Joseph Engelberger (otro ena¬ 
morado de Asimov), creador de la primera 
empresa cuya finalidad era la fabricación ro- 
bótica. Hoy en día la Engelberger Unimation 
Inc. continúa siendo una de las mayores su¬ 
ministradoras de robots industriales. 

Para ser sinceros donde la robótica ha ex¬ 
perimentado un verdadero auge tanto por el 
interés que despierta su estudio como por su 
utilización masiva ha sido, sigue siendo y pro¬ 
bablemente lo será por mucho tiempo en Ja¬ 
pón. En este país la robótica industrial no só¬ 
lo dobla las cantidades de cualquier país in¬ 
dustrializado, sino que se renueva constante¬ 
mente. Día a día podríamos decir sin miedo 
a exagerar. 


Hasta aquí puede servir la introducción, pe¬ 
ro entremos directamente en el tema. Y así, 
de golpe, lo primero que se nos ocurre es pre¬ 
guntarnos: ¿qué es un robot? 

Todos nosotros tenemos dos ideas claramen¬ 
te diferenciadas, que son incluso contradicto¬ 
rias, respecto a la palabra robot. Por un lado 
tenemos una tradición cultural, de la que ya 
hemos hablado, potenciada poco a poco por 
la literatura de ficción (el género de ciencia- 
ficción, para ser exactos) y más recientemen¬ 
te el cine. 

Según esta idea romántica, el robot es un 
ser hecho a semejanza del hombre (más o me¬ 
nos), con unas capacidades cada vez más hu¬ 
manas, de forma que algunos son capaces de 
tomar decisiones por sí mismos y otros tienen 
claros deseos de inmortalidad o incluso de pro¬ 
creación. 

Frente a este concepto se encuentra la rea¬ 


lidad. No todos los robots están creados a ima¬ 
gen del hombre, es más, la mayor parte de 
ellos están fabricados imitando funciones hu¬ 
manas, no su aspecto. Se les diseña funcional- 
mente para que sean capaces de realizar una 
serie de trabajos muy definidos tal como de¬ 
cíamos anteriormente al referirnos a los robots 
industriales. 

Bueno pero, ¿qué es un robot?. Tal vez 
podamos decir que es una máquina con ca¬ 
pacidad para ser programada y que, por tan¬ 
to, puede memorizar una secuencia de ope¬ 
raciones y repetirla incansablemente. 

Parece un definición muy pobre pero, sin 
embargo, es lo suficientemente amplia como 
para abarcar las diferentes generaciones de 
robots así como sus distintas configuraciones 
mecánicas y funcionales. 

Tal vez debíamos olvidar por un momento 
la pregunta anterior, realizada tan directa¬ 
mente, para intentar rodearla y llegar a en¬ 
contrar su respuesta a través del estudio de 
la robótica actual y así desde el conocimiento 
de casos particulares tal vez seamos capaces 
de llegar a un concepto general válido. 

De momento, lo que sí parece claro, y apli¬ 
cable a la mayoría de los casos, es que el ro¬ 
bot es una máquina especializada. Y cada uno 
está pensado, diseñado y montado para cum¬ 
plir su misión con la mayor exactitud. 

Vamos a verlos despacito y de cerca. Para 
ello los dividiremos en dos grandes apartados: 
los que no se parecen en nada a los humanos, 
en cuanto a su estructura y aspecto, y los lla¬ 
mados «androides». 

Y antes de empezar a recorrerlos uno por 
uno, vamos a pedir disculpas a los robots de 
la lavadora, el horno, la plancha, etc. porque 
en una sabia decisión unilateral hemos deci¬ 
dido sacarles de la definición de robot. Para 
ser más exactos diremos que están mucho más 
cerca de ser pequeños ordenadores. En fin, 
perdón. 

Son ya muy antiguos los mecanismos que tie¬ 
nen por finalidad la manipulación a distancia. 
Pero es a partir de la Segunda Guerra Mun¬ 
dial y la necesidad de trabajar con material 
radiactivo la que impulsa el perfeccionismo de 
estas manos teledirigidas. Desde este momento 
puede hablarse de una verdadera especiali- 
zación de estas máquinas y de los brazos de 
robots, que son los que nos interesan en este 
caso y que pueden considerarse sus descen¬ 
dientes. 

Los fines para los que se crearon fueron me¬ 
ramente industriales. Se usan para coger, co¬ 
locar, atornillar, perforar, etc. Como verá se 
trata de realizar trabajos muy específicos den¬ 
tro de una cadena de montaje, sustituyendo 
la operación mecánica del hombre. Tienen la 
ventaja de que no se cansan, no se distraen 
y tienen una mayor fuerza, pero en cambio 
son mucho más pesados. 

Pero lo verdaderamente interesante de es¬ 
tos brazos, aunque no es una de las áreas más 
explotadas, es su combinación con un vehículo 
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móvil. Ciertamente este conjunto perdería al¬ 
go de fuerza en comparación con un brazo 
sólidamente apoyado, pero a cambio facilita¬ 
ría su presencia allí donde fuera necesario. 

Si está unido a un ordenador podríamos 
conseguir evitar choques. Dirigido desde una 
pantalla, por ejemplo, el robot móvil recoge 
y transporta cajas de un almacén, libros de 
una biblioteca, etc. para después colocarlos 
con precisión en su lugar exacto. 

En cuanto a las bases sobre las que están 
colocados estos brazos son también robots. Es¬ 
tán unidas a un ordenador que las dirige a tra¬ 
vés de unas «pistas» que están formadas por 
raíles, cables eléctricos e incluso líneas en co¬ 
lor. Es evidente que en este último caso debe¬ 
rán estar provistas de unas células sensibles a 
la luz. 

Todos ellos deben disponer de sensores que 
eviten choques en cualquier circunstancia, de¬ 
teniendo el vehículo cuando en su camino apa¬ 
rezcan obstáculos más o menos imprevistos, 
incluido el operario humano que tiene todo el 
derecho del mundo a cruzar la fábrica o el al¬ 
macén. 

Pero no sólo podemos destinarlos a estas mi¬ 
siones tan concretas. Sofisticando y comple¬ 
mentando estos brazos con una serie de célu¬ 
las, sensores, luces, cámaras de T.V., etc. son 
capaces de realizar operaciones mucho más 
delicadas en lugares donde, bien por condi¬ 
ciones hostiles, bien por economía o por am¬ 
bas cosas a la vez, sea más beneficiosa la pre¬ 
sencia del robot que la humana. 

Hablamos, por ejemplo, del espacio exte¬ 
rior, donde la toma de muestras se realiza con 
estos brazos aplicados a las naves, satélites o 
vehículos espaciales. Y podemos aplicar esto 
mismo al fondo del mar, las zonas subterrá¬ 
neas, las prospecciones petrolífera; también 
pueden resultarnos imprescindibles en algo 
realmente peligroso: las minas. En este caso 
estarán dotados también de algún accesorio 
especial que corte las rocas antes que el bra¬ 
zo comience a actuar. 

Otra aplicación importante de este tipo de 
herramientas es puramente militar. Son unos 
desactivadores de explosivos realmente efica¬ 
ces y no ya sólo por la importantísima circuns¬ 
tancia de salvar vidas humanas, sino porque 
ellos mismos tienen lo que nosotros entende¬ 
ríamos como «instinto de conservación» y se 
autoprotegen de la mejor forma para que los 
daños que sufran sean menores, con lo que 
la parte económica sale también beneficiada. 

Pero a nosotros, usuarios, entusiasmados y 
enloquecidos con nuestro Amstrad, lo que 
nos interesa más bien es la aplicación que uno 
de estos brazos podría tener respecto a nues¬ 
tro ordenador. 

En efecto, desde hace ya unos años algu¬ 
nas casas han comercializado unos genios cu¬ 
ya finalidad esencial es la educativa. Un bra¬ 
zo de robot en casa va a servirnos ni más ni 
menos que para aprender su funcionamiento, 


sus posibilidades, su manejo. Para investiggr 
por nosotros mismos e intentar crear o mejo¬ 
rar un programa que lo mueva con precisión. 
Un ejemplo clásico que le brindamos es inten¬ 
tar jugar al ajedrez o las damas con un brazo 
educacional y un buen programa, quizá co¬ 
dificado por nosotros mismos, ejecutado por 
nuestro ordenador. 

La gran diferencia entre estos brazos y los 
industriales es el tamaño y, consecuentemen¬ 
te la fuerza que desarrollan. Por tanto, la gran 
posibilidad que tenemos es intentar potenciar 
sus habilidades, por ejemplo, cambiando la 
pinza (o dedos robóticos) por imanes o vice¬ 
versa. Incluso los más «mónitas» pueden in¬ 
tentar realizar sus propias creaciones con di¬ 
ferentes materiales, darle más potencia (y qui¬ 
zá nos ayude a colocar nuestros libros, discos 
o vídeos). No se limite a montar los kits tal co¬ 
mo vienen preparados de la fábrica, sino in¬ 
tente hacer un robot a su medida. 

Pero quizá mucho más divertidos que estos 
brazos sean los robots de suelo. Su fabrica¬ 
ción no tiene por qué ser más cara que la de 
los anteriores y, sin embargo, sus posibilida¬ 
des son bastante superiores. 

Su diseño abarca desde la imitación de las 
más avanzadas tecnologías hasta los clásicos 
animales de peluche que son, sin duda, de lo 
más atractivo para los «informáticos» más ¡o- 
vencitos. 

Este tipo de robots tiene además una ma¬ 
yor autonomía que los brazos. Por un lado 
pueden unirse al ordenador por medio de un 
cable, pero también se pueden utilizar rayos 
infrarrojos para dirigirlos, aunaue en este ca¬ 
so necesitaremos un espacio diáfano entre uno 
y otro. 

En cuanto a sus posibilidades podemos de¬ 
cir que son infinitas. Son capaces de realizar 
increíbles dibujos y adaptándoles células y sen¬ 
sores que le ayuden a orientarse, evitar obs¬ 
táculos o cualquier otra cosa que se nos ocu¬ 
rra. Podemos desarrollar toda nuestra expe¬ 
riencia en ingeniería y programación y con¬ 
seguir adaptar a estos robots de suelo cual¬ 
quiera de las novedades que podamos ima¬ 
ginar. 

Y pasamos ya a los que por su aspecto y fun¬ 
cionamiento son más semejantes a los huma¬ 
nos: los androides. Son, quizá, los más suge- 
rentes pero no por ello los más avanzados téc¬ 
nicamente. Antes de entrar de lleno en ellos, 
vamos a hacer una advertencia, quizá un tanto 
superflua, pero que es necesaria para impe¬ 
dir que nuestra imaginación se dispare. 

Al hablar de este tipo de robots todos nues¬ 
tros recuerdos y experiencias se centran en los 
ejemplos que nos ha mostrado el cine. Todos 
conocemos a Roddy, a C3PO y R2D2 y algu¬ 
na que otra estrella del momento. Pero todos 
ellos son productos de la imaginación litera¬ 
ria, la ciencia no va por ese camino. De he¬ 
cho tendrán que pasar bastantes años para 
conseguir prototipos semejantes. 


Y además parece que su aspecto físico no 
interesa en demasía a los científicos que dan 
más importancia a la especialización y funcio¬ 
nalidad. 

Dicho esto, continuemos. Los menos sofisti¬ 
cados son los llamados «maniquíes», una 
serie que intenta imitar la apariencia humana 
o animal con la mayor perfección posible. Sus 
movimientos son toscos, limitados y su capa¬ 
cidad de memoria mínima. Son típicos en los 
vídeos, escaparates y en alguna que otra ma¬ 
nifestación a modo de reclamo. Por todo ello 
el interés que tienen para nosotros es también 
bastante anecdótico y superfluo. 

¿Recuerda la película «Almas de 
metal»? Es algo que, aunque no sea de vi¬ 
tal importancia, al menos puede resultar muy 
divertido. Se trata de una serie de robots con 
una perfecta apariencia de estar dotados de 
vida que les hacía vivir su aventura favorita 
a cualquier humano que pudiera costeársela. 

¿Puede imaginarse a sí mismo luchando con 
un «marcianito» de tres dimensiones en lu¬ 
gar de enfrentársele en la pantalla de su mo¬ 
nitor? Con un poco de tiempo, paciencia y per- 
fecionamiento podremos conseguir hacerlo 
realidad. 

Una aplicación mucho más interesante de 
los« androides » es la que consiste en «relle- 
nerles» de microprocesadores, conectados 
a su vez con uno central, que imiten los órga¬ 
nos vitales de un humano. De esta manera 
pueden experimentarse situaciones límite rea¬ 
les, sin el menor peligro, que nos permitan de¬ 
sarrollar métodos capaces de evitarlos o co¬ 
rregirlos. 

Los más conocidos son los llamados «do- 
mi». Se trata de un grupo de androides de 
diferentes tamaños y pesos que trabajan den¬ 
tro de los automóviles. Se puede decir que son 
los «inventores» del cinturón de seguridad, 
cabezales, colchón de aire... Nos explicamos, 
los domis son los encargados de demostrar las 
consecuencias que los accidentes de automó¬ 
vil pueden acarrearle al ser humano de ver¬ 
dad. 

Acompañándoles están sus primos herma¬ 
nos, que trabajan en la Facultad. Si los domis 
han sufrido toda serie de traumas imaginables, 
sus familiares se han visto afectados por pa¬ 
ros cardíacos, asfixias, tumoraciones y cuan¬ 
tos etcéteras se le puedan ocurrir. 

Después de quitarnos el sombrero ante ellos, 
seamos prácticos. ¿Qué pasa con los androi¬ 
des y los ordenadores caseros? 

Pues poco más o menos lo mismo que ocu¬ 
rriría en el caso de los brazos de robot. Por 
ahora estamos mucho más cerca del juego 
educativo que de la utilidad realmente prác¬ 
tica. 

Dentro de los que tenemos en casa, pode¬ 
mos hacer dos grandes grupos: los de jugue¬ 
te y los domésticos. La verdad es que su apa¬ 
riencia no difiere mucho ya que ei cine influ¬ 
ye en gran manera sobre los gustos de las per¬ 
sonas y R2D2 ha tenido demasiado «gan¬ 
cho». 
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Los androides de juguete se han desarrolla¬ 
do sobre todo en Japón, cómo no. Su aparien¬ 
cia es cada día más benigna y amistosa, aun¬ 
que todavía recuerdan en parte sus orígenes 
belicosos, cuando iban cargados de armas es¬ 
paciales, pistolas de rayos láser o de cualquier 
otro tipo (simuladas claro). 

Sus limitaciones vienen dadas por las del mi¬ 
croprocesador que llevan incorporado y que 
permite programarles para que ejecuten y re¬ 
cuerden una serie de movimientos e incluso al¬ 
guna que otra frase que podrán intercambiar 
con los humanos, una vez reconozcan su voz. 

En cuanto a los robots domésticos se puede 
decir que todos ellos se mueven sobre sí mis¬ 
mas, o sea, son autónomas. Se controlan por 
un ordenador que generalmente llevan en su 
interior, o bien mediante infrarrojos que lo 
unen con un micro de mesa. 

Pero realmente, ¿qué es lo que pueden ha¬ 
cer? Aparentemente multitud de tareas case¬ 
ras pueden ser realizadas por estos androides. 
Parece que se acabó el barrer, poner la me¬ 
sa, ordenar un armario. La situación, sin em¬ 


bargo, es muy diferente. La tecnología con la 
que están fabricados no está lo sufientemen- 
te desarrollada como para que sean unos per¬ 
fectos ayudantes del ama de casa. De momen¬ 
to nos conformaremos con aprender robóti- 
ca, electrónica y mecánica con ellos, así co¬ 
mo idear un programa que podamos «me¬ 
ter» en su memoria y conseguir perfeccionar 
o incluso ampliar las primitivas tareas de las 
que están dotados. 

Pero lo más atractivo de estos robots es que, 
al igual que ocurría con los brazos, con un pro¬ 
totipo, nuestro ordenador y nuestra imagina¬ 
ción, podemos aprender, investigar, inventar 
y desarrollar cualquier idea por peregrina que 
nos parezca. Tal vez al principio los resulta¬ 
dos no sean todo lo impresionantes que de¬ 
seemos pero de lo que no cabe duda alguna 
es que nuestros conocimientos aumentarán. 
¿Por qué no se anima y fabrica un prototipo? 

A estas alturas no sabemos si estamos en 
condiciones de responder a aquella pregun¬ 
ta que hicimos sobre la naturaleza de los ro¬ 
bots, pero a cambio haremos una reflexión 
«filosófica». 


Hay quien ve en los robots una amenaza. 
Bueno, pues no lo son. 

En principio las posibilidades del robot son 
todavía limitadas y no pueden considerarse en 
ningún momento como peligrosas. 

Sin embargo, sí podemos tener en ellos una 
gran ayuda ya que se «encargan» de todas las 
tareas pesadas y rutinarias, dejando a los hu¬ 
manos las labores creativas y, por supuesto, 
una mayor cantidad de tiempo libre. 

En un futuro el robot cumplirá una labor se¬ 
mejante a la del antiguo esclavo, pero evitan¬ 
do el problema moral que la esclavitud signi¬ 
fica en este caso. 

El empleo de este concepto es de muy du¬ 
dosa aplicación al referirnos al trabajo que 
realiza un robot. 

Si le parece que esta premisa es lo suficien¬ 
temente lógica piense por un momento que he¬ 
mos llegado al futuro. 

Los robots serán lo suficientemente inteligen¬ 
tes como para descubrir que el papel de los 
humanos es más apasionante que el suyo. 

Y entonces... 
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Black jack 


Los juegos de cartas por ordenador, al parecer, constituyen un tema 
favorito de los programadores y nuestros lectores no son una excepción. 
Una y otra vez llegan a nuestra redacción multitud de ellos, unos muy 
buenos, otros menos buenos, pero todos bienvenidos. 

Hemos seleccionado uno de ellos, que «computariza» el famoso juego 
inglés del «Black Jack», conocido en España como 21 y, pariente cercano 

de las «siete y media». 

El autor del programa ya se toma la molestia, unas líneas más abajo, de 
describir el juego con detalle, así que no lo repetiré aquí. Sólo quisiera 
llamar la atención de los lectores acerca de la precisión con que están 
realizados los gráficos de las caras, así como la original y, acertada, 
disposición de las mismas en la pantalla. 

Más de una vez hemos dicho en la revista que, por la magia del ingenio, 
el byte se convierte en padre y madre del Arte. Black Jack es una 

prueba de ello. 


Antonio Fernando Aguilera Romera 



ste programa es 
una recreación del tradicional juego 
del Black Jack, también conocido co¬ 
mo veintiuno. En este caso se juega 
a doce partidas, tras las cuales se 
muestra una pantalla con las máxi¬ 
mas puntuaciones, pudiéndose, en 
caso de entrar entre ias mejores pun¬ 
tuaciones, introducir previamente el 
nombre del jugador. El objetivo del 
juego es alcanzar los 21 puntos o, en 
su defecto, una mayor puntuación 
que la banca, que en este caso es el 
ordenador. Este juego permite las ju¬ 
gadas habituales, que son las si¬ 
guientes: 

— Doblar la apuesta, lo que se 
puede hacer cuando nuestra puntua¬ 
ción es de 9, 10 ó 11 puntos. 

— Asegurarse, es decir, apostar 
la mitad de lo que se lleva apostado 
a la banca. Si ésta obtiene un black 
Jack (un as y una carta de valor 
diez), el jugador gana esa cantidad. 


— Abrir el juego en dos ramas in¬ 
dependientes. Esto sólo se puede ha¬ 
cer cuando las 2 primeras cartas del 
jugador son del mismo valor y éste 
no ha doblado la apuesta. Existe una 
jugada que supera a todas las de¬ 


más: ésta es el Black Jack, que se ob¬ 
tiene cuando se tiene un as y una car¬ 
ta de valor diez (10, J, Q, K). Caso 
de no alcanzarse ni Black Jack ni 21 
por ninguna de las 2 partes, ganará 
el que más se acerque a 21. 
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10-240 
250-310 
350-1440 
360-650 
660-1110 
1120-1370 
1380-1440 
1450-1470 

1480-1910 

1920-3170 

3180-3270 

3280-3330 

3340-3390 

3400-3460 

3470-3520 

3530-3580 

3590-3940 

3950-4040 


Inicialización 
Presentación 
Bucle principal 
Baraja y pide apuesta 
Juega el jugador 
Juega el ordenador 
Fin del bucle principal 
Pregunta si se vuelve a 
jugar 

Resultado de la partida 
Dibuja la carta 
Dibuja el marco y el fon¬ 
do de la carta 
Identificador del naipe 
Imprime el mensaje 
Extrae una carta del 
mazo 

Espera que se expulse 
una tecla 

Subrutinas auxiliares 
Máximas puntuaciones 
Escribe ventana de 
puntuación 



Variables 

a$ 

Cadena con los números de 

b$ 

las cartas 

Cadena con los palos de las 

rec (), 
rec$() 

cartas 

Matriz con la puntuación y 

e$ 

nombre (máximas 
puntuaciones) 

Cadena con ía baraja 

s 

Puntuación del l.° camino 

p 

Puntuación del 2.° camino 

t 

Puntos de la banca 

bjl, b¡2 

Indicadores del Black Jack en 

dg 

los respectivos caminos 

Dinero acumulado 

d,e 

Coordenadas de impresión 

q 

de la carta 

Cantidad del seguro 

h 

apuesta 

fl 

Bandera de fin de juego del 

r 

jugador 

Bandera de apuesta doblada 

V 

Valor de la 1. a carta del 

u 

ordenador 

Valor de la 1. a carta del 

bdna 

jugador 

Bandera de dinero acabado 

k 

Dinero ganado (o perdido) 

m 

en una partida 

Dinero ganado en todas las 

a 

partidas jugadas 

Carta dei mazo 

c 

Palo de la carta 


Nota.— Para ver correctamente el listado, 
ejecutar en modo directo: SYMBOL AFTER O: 
LIST. 


10 REM *** 

i************************** 

20 REM * BLACK JACK 

t 

30 REM ***************1************ 
** 

40 RF.M * Antonio Fernando 

* 

*50 REM * Aguilera Romera 

* 

60 REM * GRANADA 

* 

70 REM **************************** 
t* 

SO SYMBOL AFTER O 
90 MODE 1 

100 REM *************************** 
*** 

110 REM * INICIALIZACION 

* 

120 REM *************************** 
*** 

130 INK 0,10:INK 1,26:INK 2,0:XNK 3 
r ^ 

140 BORDEP 10:PAPER 0:PEN 1: CLS 
150 SYMBOL 163,39,101,37,37,77,37,1 
19,0 

160 SYMBOL 255,235,236,136,232,0,25 
4,0,0 

170 SYMBOL 254,248,216,216,248,0,24 
8 ,0,0 

180 SYMBOL 253,0,0,127,0,0,127,0,0 
190 SYMBOL 252,192,224,176,152,152, 
176,224,192 

200 ai="A23456789#JQK":bf=CHRi(228) 
+CHRÍ(227)+CHRÍ<226)+CHRi <229) 

210 RANDOMI ZE TIME: cÍ=STRINGÍ (40, 32 
) 

220 í i=CHRt < 207) +CHRi < 200) +CHRÍ < 201 
)+CHRÍ<200)+CHRÍ <201)+CHRÍ(200)+CHR 
i < 207): i ti=CHRi < 207)+CHRi <201)+CHRi 
< 200) +CHRÍ <201) +CHRi < 200) +CHRÍ <201) 
+CHRÍ<207) 

230 ei=" " : FOR i =1 TO 52: @i=»Í+CHRÍ < 
i):NEXT i 

240 DIM rec(6),reci(6):FOR i=l TO 6 
:rec<i)=80000+ <60000-<i + 1)*5000):re 
ci <i)="AMSTRAD":NEXT 

250 REM *************************** 
* 

260 REM * PANTALLA DE PRESENTACION 
* 

270 REM *************************** 
* 

280 ORIGIN 320,200:FOR px=0 TO 200 
STEP 10: PLOT px , 0 , 2 :DRAW 0,200-px:D 
RAM -px,0:DRAM O,-<200-px):DRAM px, 
O:NEXT:ORIGIN 0,0 

290 a=1:d=1:e=10:b=3:c=1:GOSUB 1930 
:SPUND 1,INT(RND*100+100),25:d=15:e 
=25: c =2: b =3: GOSUB 1930: SOIJMD 1, I NT < 
RND * 300+100) , 25: d=l :b=2:c=3: GCISUB 1 
930:SOUND t,INT'RND*500+100).25:d=l 
5¡R=lO:c=4:t.=2: GOSUB 1930: SOUND 1,1 
NT < RND*700+100),25 

300 xi=" BLACK JACK ":FOR 1=1 
TO 17:PAPER 2:PEN l + '2 AND I/2=INT' 
1/2)):LOCATE I+11,13:PRINT MIDi <x*, 
i,1);:FOR ret = l TO 5:NEXT ret:NEXT 
i 

■*10 FOP r et = 1 TO 2000: NEXT 

320 REM - 

330 REM -AQUI COMIENZA BUCLE PPINCI 
PAL- 

340 REM - 

350 dg=80000:m=0:L=0:FOR mano=l TO 
12 

360 REM *************************** 
* 

370 REM * BARAJA Y PIDE APUESTA 

* 

380 REM *************************** 
* 

390 qp=INT(RND*100+35) 

400 MODE 1:PAPER 0:PEN l:CLS:dÍ="BA 
RAJ ANDO":GOSUB 3370 
410 INK 3,24 

420 FOR 1 = 1 TO qp: >: = INT <RND*52+1) : y 
= INT <RND*52+1):xÍ=MIDÍ<»i,x,D:MIDt 



<ei,x,l)=MIDÍ(ei,y,1):MIDÍ(ei,y,l)= 

xi:SOUND 1,0,1: NEXT i 

430 h=0:1=0:n=0:o=0:p=0:q=0:r=0:s=0 

: t =0 

440 CLS 

450 maní»" ENTRE SU APUESTA ":LOC 
ATE 1,12:PAPER O:PRINT ci:PAPER 2:P 
EN 1:LOCATE 11,12:FOR i=l TO LEN <me 
ni):PRINT MIDi<m»ni,i,1) 5 :SOUND 129 
,100,4:MHILE SQ<1)>127:MEND:NEXT i: 
LOCATE 11,11:PRINT STRINGi<20,32):L 
QCATE 11,13:PRINT STRINGi<20,32) 

460 LOCATE 11,10:PRINT STRINGi<20,3 
2):LOCATE 11,14:PRINT STRINGi<20,32 
) 

470 PLOT 184,200,3:DRAMR 270,0 

480 DRAMR O,30:DRAMR -272,O:DRAMR O 

,-30 

490 PLOT 172,188,1:DRAMR 294,0 

500 DRAMR O,54:DRAMR -294,O:DRAMR O 

,-54 

510 PLOT 160,176,3:DRAMR 318,O:DRAM 
R O,78:DRAMR -318,0:DRAMR 0,-70 
520 IF dg >9999 THEN ma::ap = 10000 ELS 
E maxap=dg 

530 men2Í="ENTRE 200 Y"+STRi(maxap) 

+ " PTAS:.": men2=LEN<m»n2i) : IF 

<men2 MOD 2) =0 THEN m»n2i=" " 4-m®n2i 
540 PAPER O:PEN 1:LOCATE 20-INT(men 
2/2),22:FOR i=l TO LEN<m»n2i):PRINT 
MI Di< men2i,i,1);:SOUND 1,200,4:MHI 
LE SQ<1)>127:SOUND 128,100,l:MEND:N 
EXT i:PRINT STRINGi< 6 , 8 ); 

550 h=0: t i=" ": x$=" " : MHILE LEN<xÍ ><6 
AND t*OCHR*(13) 

560 tÍ=UPPERi < INKEY*) : IF ti="" THEN 
560 

570 IF ASC <t*)=13 OR <ASC<tÍ)>47 AN 
D ASC < ti)<58) THEN xi=xi+ti:PRINT t 
i;:SOUND 1,20+VAL<ti)* 10,3:MHILE SO 
<1)>127:MEND ELSE IF ASC(ti)=127 AN 
D LEN<xi)>0 THEN 1o=LEN<xi):1o=lo -1 
:xi=MIDi<xi,l,lo):PRINT CHRi< 8 );CHR 
i< 16' ; H -*-CHPÍ ' 8 > 5 ELSE GOTO 560 
580 MEND 
500 h=OAL<Xi) 

600 men3i="P0R FAVOR, ENTRE 200 Y"+ 
STRi < max ap) + " PTAS" : men3=LEN <nten3i) 

:IF <men3 MOD 2)=1 THEN men3i=men3i 
+ ". " 

610 IF h<200 OR h>maxap THEN LOCATE 
1,25:PRINT SPC<39);:LOCATE 21-INT< 
LEÑ<men3i)/2),25:PRINT men3i:F0R 1= 
1 TO 2000:NEXT I:LOCATE 1,25:PRINT 
SPC(39);:LOCATE 1,22:PRINT cÍ:GOTQ 
540 

620 LOCATE 1,22:PRINT ct:dini="APUE 
STA TOTAL:"+RIGHTÍ(STRi<h),LEN<STRi 
<h))-l)+" PTAS" : IF (LEN <di ni) /2> OI 
NT <LEN <dini>/2) THEN dini=dini+"." 
630 LOCATE (20-LEN<dini)/2)+1,22:PE 
N 2:PRINT dini 

640 PLOT <20-(LEN(dini)/2))*16-8,39 
9-22*16-4,1:DRAMR LEN(di ni)*16+12,0 
:DRAMR O,28:DRAMR -(LEN<di ni)* 16+12 
),O:DRAMR 0,-28 

650 FOR 1=1 TO 2000:NEXT I:PAPER O: 
CLS:INK 3,6 

660 REM *************************** 
* 

670 REM * JUEGA EL JUGADOR 

* 

680 REM *************************** 
* 

690 MINDOM #1,11,30,1,8:PAPER #1,2: 
FOR i=1 TO 8 :LOCATE #1,1,1:PRINT #1 
,CHRi<11):STRINGi< 20,32);:NEXT 
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7 00 rcjl$="":rcj 2 $ = ""s b j 1 = 0 :b j 2 = 0 :r 
=0: {1 =0: WHXLE rOl AND fl=0 
710 n=n+l 

7 20 IF n >2 THEN GOTO 910 
7 30 IF n=l THEN o=q+ 1:GOSUB 3430:GO 
SIJB 3450: t=a: d=l: e=34: b=l: GQSUB 321 
0:PAPER 1:PEN 2:LOCATE 34,2:PRINT S 
TRING*(7,207):FOR i =3 TO 9 STEP 2:L 
OCATE 34,i:PRINT f*:LOCATE 34,í+l:P 
RINT f1í:NEXT i:LOCATE 34,10:PRINT 
STRING*(7,207> sGOSLJB 3220:G0SUB 350 
O:GOTO 750 

740 o=o+1: d= 1: »= 1: GOSUB 3430:G0SUB 

1950: GOSLIB 3450: t=t+a: v=a 

750 o=o+l:d=12:e=n*2-l:GOSUB 3430: G 

GSUB 1950: GOSLIB 3450: 6=6 + a 

760 GOSIJB 3980 

77r * IF o=2 THEN u=a 

7 R0 IF n=i THEN 710 

790 IF 6=11 AND <u=l OR u = 10) THEN 
bj 1 = 1 :i 1 = 1: GOSIJB 3980: GOTO 1110 
BOO IF v=l THEN d*=CHRS ( 174)+ "DESEA 
ASEGURARSE?": GOSIJB 3370: GOSIJB 3500 
:PAPER O: LOCATE 1,23:PRINT CS: IF x$ 
="S" THEN q=INT(h/2>:LOCATE 1,25:PR 
I NT "SEGURO DE"; O; "PTAS": GOSLIB 3980 
: FOR 1=1 TO 1500:NEXT:LOCATE 1,25:P 
RINT cS; 

G10 IF e >8 AND 6 <12 THEN d$=CHR*(17 
4' + "DESEA DOBLAR LA APUESTA?" : GOSLIB 
3370: GOSIJB 3500: PAPER O: LOCATE 1,2 
3:PPINT cí:IF x*="S" THEN r=l:h=2*h 
:LOCATE 1,25:PRINT "APUESTA DOBLADA 
A" ;h; "PTAS"-.GOSLIB 3980: FOR i = l TO 
1500: NEXT i:LOCATE 1,25:PRINT c*; 
R20 IF b< >2*u OR r = 1 THEN rcj2í="N" 

: GOTO 910 

830 dí=CHR* ( 174)+"DESEA ABRIRSE 7 ": G 
nSUB 3370: GOSLIB 3500: PAPER O: LOCATE 
1,23: PRINT c*; 

840 IF n*="N" THEN r c j2«="N": GOTO R 
10 

850 d= 12: e=34: GOSIJB 3430:GQSUB 1950 

-.GOSLIB 3450: p=a: GOSLIB 3980 

860 o=o+l:®=3:G0SUB 3430:GQSUB 1950 

: GOSUB 345.0: 6 =u+a: GOSLIB 3980 

870 IF 6=11 AND (u=l OR u=10> THEN 

b j 1 = 1 

880 o=o+l:@=32:GOSUB 3430:GOSUB 195 
O: GOSLIB 3450:p=p+a:GOSUB 3980 
890 IF p=l 1 AND (a=l OR a=10> THEN 
b j 2 =l 

900 GOSUB 3980 

910 IF 6 >21 THEN rcjlí="N" 

Q 20 IF bj1=1 THEN rcjl*="N" 

930 IF rcjl*="N" OR bjl=l THEN 1000 
940 d*=CHRí(174)+"DESEA MAS CARTAS? 
":GOSUB 3370:IF p THEN LOCATE 3,12: 
PEN 1: PRINT "*":GOSUB 3560 
950 GOSUB 3500:LOCATE 3, 12: PAPER O: 
PRINT " ": GQSUB 3560 
960 rcjl*=x* 

970 IF rcjl*="N" THEN GOTO 1000 
980 a=o+l :d=12: ®=n *2+1: GOSUB 3430: G 
QSIJB 1950: GOSUB 3450: s=s+a: GOSUB 39 
80 
990 

1000 IF p>21 THEN rcj2*="N" 

1010 IF bj2=l THEN rcj2*="N" 

1020 IF rcj2*="N" OR t»j2=l THEN 109 
O 

1030 d*=CHR*<174)+"DESEA MAS CARTAS 
?":GOSUB 3370:IF p THEN LOCATE 38,1 
2:PEN 1:PAPER O: PRINT GQSUB 357 

O 

1040 GOSUB 3500:PAPER O:LOCATE 38,1 
2-.PRINT " ": GOSUB 3570 
1050 rcj2*=x* 

1060 IF rej2*="N" THEN GOTO 1090 
1070 o=o+l:d=12:e=34-n*2:GOSUB 3430 
:GOSUB 1950:GOSUB 3450:p=p+a:GOSUB 
3980 

1080 IF p>21 THEN rcj2$="N" 

1090 IF bj 1 = 1 AND bj2=l THEN -f 1 = 1 
1100 IF rej1*="N" AND rcj2*="N" THE 
N f 1=1 
1110 WEND 

1120 REM ************************** 
* 


1130 REM * JUEGA EL ORDENADOR 
* 

1140 REM ************************** 

» 

1150 FOR i=20 TO 35 STEP 5:S0UND 1, 
i , 1: NEXT i :w=<-> 

1160 LOCATE 1,23:PRINT c*:PAPER #1, 
O:LOCATE #1,1,8:PRINT #1,STRING*<0, 

10 ) 

1170 ®=34:d=l:aa=o:o=l:GOSUB 3430:G 
OSUB 1950:o=aa 

1180 IF t=ll AND (v=t OR v=10) THEN 
w=l:GOTO 1380 

1190 IF bj1=1 AND p=0 THEN 1380 
1200 IF bj1 = 1 AND bj2=l THEN 1380 
1210 IF 6 >21 AND (p=0 OR p>21 OR bj 
2=1) THEN 1380 

1220 IF t >6 AND <p=0 OR p>21 OR bj2 
= D THEN 1380 

1230 IF > 16 AND ((e>t. AND e<20 AND 
(p=0 OR p>21)) OR <p>t AND p<20)) 
THEN nol=RND»7:nQ2=RND*10:IF no2<no 



1 THEN 13BÜ 

1240 IF p>21 AND 6=21 THEN 1380 
1250 IF s>21 AND p=21 THEN 1380 
1260 IF t.>p AND <6>21 OR bjl = l) THE 
N 1380 

1270 IF (<t.=p AND p >0) OR t.= 6 ) AND 
t>ll THEN nol=RNP*t:no2=RND*25:IF n 
o2<nol THEN 1380 
1280 n=l 

1290 o=o+l:e=n*2+l:GOSUB 3430:GOSUB 
1950:GOSUB 3450:t=t+a 
1300 IF t>« AND bj1=0 THEN 1380 
1310 IF t>p AND bj2=0 AND p>0 AND 6 
>21 THEN 1380 

1320 IF t>16 AND 6=21 THEN nol=RND* 
10:no2=RND*35:IF no2>nal THEN 1380 
1330 IF t>16 AND (( 6 >t AND s<20) OR 
<p>t AND p<20)) AND (p=0 OR p>2l) 
THEN nol=RND*7:no2=PND*K>: IF no2>no 
1 THEN 1380 

1340 IF t .=6 AND 6>16 AND (p=0 OR p> 
21 OR bj2=l) THEN 1380 : 9 IF t=s AND 
e>16 THEN 1350 

1350 IF t=p AND p >!6 THEN 1380:’IF 
t=p AND p>16 AND («>21 OR bjl = l) TH 
EN 700 

1360 IF t>21 THEN 1380 
1370 n=n+l:GOTO 1290 

1380 FOR i=150 TO 100 STEP -1:S0UND 
1,1,5:NEXT i 
1390 GOSUB 1510 

1400 IF bdna=l THEN bdna=0:G0T0 145 
O 

1410 NEXT mano 

1420 REM - 

1430 REM -AQUI TERMINA BUCLE PRINCI 
PAL- 

1440 REM - 

1450 GOSUB 3620 

1460 CLS: INK O, 10: d*=CHR1> (174) +"CON 
TINLIAMOS JUGANDO?" : GOSUB 3370: GOSUB 
3500:IF x$="N" THEN CLS:SYMBOL AFT 
ER O:END 

1470 LOCATE 1,10:PAPER O:PRINT c*:C 
LS:GOTO 350 


1480 REM ttttttttttttttt%%%%%%%%%%% 
* 

1490 REM * RESULTADO DE LA PARTIDA 

* 

1500 REM %%%%%%%%%%%%%%**%%*%%%*%%% 
* 

1510 PEN 2:CLS:PRINT CHR*(24>;" 
-RESLILTADO DE LA PARTIDA- 
" ;CHR* ( 24 > ; 

1520 IF w=l THEN p*=" BLACK JACK" E 
LSE p*=STR«(t)+" PLINTOS" 

1530 >:*="MI JUGADA HA SIDQ"+p$: LOCA 
TE 1,3: PRINT v.% 

1540 x$="SU JUGADA HA SIDO" 

1550 IF p THEN 1580 
1560 IF b j 1 =0 THEN x*=::*+STR* (6) +" 
PLINTOS" ELSE x*=x*+" BLACK JACK" 
1570 IF NGT p THEN LOCATE 1,5: PRINT 
xí:GOTO 1630 

1580 LOCATE l,5:PPINT x*;»:" 

1590 IF bj1=1 THEN vwí=" BLACK JACK 
" ELSE vw*=STR*( 6 )+" PUNTOS" 

1600 x $="PRIMER CAMINO "+CHRí(253)+ 
CHR$ ( 252 )+vw4 : LOCATE 1,7:PRINT xí 
1610 IF bj2=1 THEN wví=" BLACK 7ACK 
" ELSE ww1i=STR*<p)+" PUNTOS" 

1620 xt= "SEGUNDO CAMINO "+CHRt(253) 
+CHP*(252)+wví:LOCATE 1,8: PRINT xí 
1630 k=0:IF q=^ THEN 1650 
1640 PRINT:IF w THEN PRINT "GANA EL 
SEGLIRO DE” ; q; "PTAS" : k = k + 2*q ELSE P 
PINT "PIERDE EL SEGURO DE";q;"PTAS" 

: k = k - q 

1650 x= 6 : y=0 
1660 PRINT 

1670 IF p >0 AND y=0 THEN 6Í="1"+CHR 
*(255)+" CAMINO:":PRINT 6 *; 

1680 IF p >0 AND y=l THEN qí="2"+CHP 
*(254)+" CAMINO: "-.PRINT q*; 

1690 IF x >21 THEN PRINT "PIERDE AL 
PASAR DE 21":k=k-h:GOTO 1770 
1700 IF w AND ( (bj1 = 1 AND y=0) OR ( 
bj2=l AND y=l)) THEN PRINT "EMPATAD 
OS":GOTO 1770 

1710 IF (b j 1 = 1 AND y =0) OR (bj2=l A 
ND y=l) AND NGT w THEN PRINT "GANA 
CON BLACK JACK":K=K+t.5*h:GOTO 1770 
1720 IF w=l AND ((bjl=0 AND y=0) OR 
(bj2=0 AND y=l)) THEN PRINT "PIERD 
E CON MI BLACK JACK":k=k-h:GOTO 177 
O 

1730 IF t>21 THEN PRINT "GANA AL PA 

SARME DE 21":k=k+h:GOTO 1770 

1740 IF x>t. THEN PRINT "GANA AL SUP 

ERARME":k=k+h:GOTO 1770 

1750 IF t>x THEN PRINT "GANO AL SUP 

ERARLE":k=k-h:GOTO 1770 

1760 PRINT "EMPATADOS" 

1770 IF y=0 AND p THEN x=p:y=l:GOT 
0 1680 

1780 PRINT:PRINT "EN ESTA MANO " ; 
1790 k=INT(k) 

i BOO IF l:=0 THEN PRINT "QUEDAMOS EM 
PATADQS":GOTO 1830 

1810 IF k>0 THEN PRINT "GANA" 5 k;"PT 
AS":GOTO 1830 

1820 PRINT "PIERDE";ABS(k);"PTAS" 
1830 m=INT(m+k) 

1840 PRINT:PRINT "TOTAL:"; 

1850 IF m=0 THEN PRINT "COMO AL PRI 
NCIPIQ" ELSE IF m>0 THEN PRINT m;"P 
TAS GANADAS"ELSE PRINT ABS(m);"PTAS 
PERDIDAS" 

1860 dg=dg+k 

1870 PRINT:PRINT "TIENE";dg;"PTAS" 
1880 IF dg<200 THEN PRINT:PRINT "YA 
NO PUEDE SEGUIR APOSTANDO":bdna=l 
1890 WHILE INKEY*<>"":WEND:INK 1,0, 
26:LOCATE 13,25:PEN 1:PRINT "PULSE 
UNA TECLA":WHILE INKEY*="":WEND:PAP 
ER O 

1900 INK 1,26 
1910 RETURN 

1920 REM tttttttttttttttttttttttttt 
t 

1930 REM * DIBUJA LA CARTA 

* 

1940 REM ************************** 
* 
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1950 GQSUB 3210 

1960 QN s GQSUB 1970,2460,2490,2520 
,2550,2500,2610,2640,2670,2700,2020 
,2940,3060:RETURN 

1970 GN c GQSUB 1900,2100,2220,2340 
:PETURN 

1900 RESTÜRE 2050 
1990 FOR n"'=3 T0 7 

7000 FGR i=l TG 5:FDR nn=l TO 9:PEA 
D n (nn):NEXT nnsSYMBOL n(l),n(2>,n( 
3),n(4),n(5>,n( 6 ),n(7>,n(R>,n(*>:NE 
VT i 

2010 LOCATE e + l,d+ , nv: PAPER 1: PEN bs 

PRINT " 1 

2020 NEXT 

2030 GOSUB 3310 

2040 PETURN 

2050 DATA 33,0,0,0,0,0,0,1,3,35,0,0 
,0,0,0,249,252,254,3 7 ,O,O,O,O,O,O,O 
,0,38,0,0,0,0,0,31,63,127,39,0,0,0, 
0,0,0,120,192 

2060 DATA 33,7,15,15,31,31,63,63,63 
,35,255,255,255,255,255,255,255,255 
,37,0,129,195,231,255,255,255,255,3 
8,255,255,255,255,255,255,255,255,3 
9, 224,240,240,248,248,252,252,252 
2070 DATA 33,63,63,63,31,31,15,15,7 
,35, 255,255,255,255,255,255,255,255 
,37,255,255,255,255,255,255,255,255 
, 38, 255,255, 255,255, 255,255, 255,255 
,39,252,752,252,240,24P,240,240,224 
2080 DATA 33,3,1,0,0,0,0,0,0,35,255 
,255,255,177,63,31,15,7,37,255,255, 
255,255,255,255,255,255,38,255,255, 

255,254,252,240,240,224,39,192,128, 

O, O, O, O, O, O 

2090 DATA 33,0,0,0,0,0,0,0,0,35,3,1 
,0,0,0,0,0,0,37,255,255,255,126,60, 
24,0,0,38,192,128,0,0,0,0,0,0,39,0, 
O,O, 0 , 0 , 0 ,O,G 
2100 RESTORE 2170 
2110 FOR nv=3 TO 7 

2120 FOR i=l TO 5:FOR nn=l TO 9:REA 
D n <nn):NEXT nn:SYMBOL n<l),n(2),n< 
3),n(4),n<5),n( 6 ),n<7>,n( 8 >,n(9)sNE 
XT i 

2130 LOCATE e+1,d+nv:PAPER 1:PEN b: 
PRINT "I#*/.*,’" 

2140 NEXT nv 
2150 GOSUB 3310 
2160 PETURN 

2170 DATA 33,0,0,0,0,0,0,0,0,35,0,0 
,0,0,0,0,0,0,37,24,24,60,60,126,126 
,255,255,38,0,0,0,0,0,0,0,0,39,0,0, 
O, O, Ó, O, O, O 

7180 DATA 33,0,0,0,0,0,0,0,0,35,1,1 
,3,3,7,7,15,15,37,255,255,255,255,2 

55.255.255.255.38.128.128.192.192.2 
24,224,240,240,39,0,0,0,0,0,0,0,0 
2190 DATA 33,0,0,0,0,0,0,0,0,35,31, 

31.63.127.127.63.31.31.37.255.255.2 

55.255.255.255.255.255.38.248.248.2 
52,254,254,252,240,248,39,0,0,0,0,0 
, 0 , 0,0 

2200 DATA 33,0,0,0,0,0,0,0,0,35,15, 

15.7.7.3.3.1.1.37.255.255.255.255.2 

55.255.255.255.38.240.240.224.224.1 
92, 192,120,120,39,0,0,0,0,0,0,0,0 
2210 DATA 33,0,0,0,0,0,0,0,0,35,0,0 
,0,0,0,0,0,0,37,755,255,126,126,60, 
60,24,24,38,0,0,0,0,0,0,0,0,39,0,0, 
O,O,O,O,O,o 

2220 RESTOPE 2290 
2230 FOR nv=3 TO 7 

2240 FOR i=l TO 5:FOR nn=l TO 9¡REA 
D n(nn)sNEXT nnsSYMBOL n(l),n(2),n( 
3),n (4),n<5), n ( 6 ), n < 7), n ( 8 ),n < 9):NE 
XT i 

2250 LOCATE e+l,d+nv:PAPER 1:PEN b: 
PRINT " 

2260 NEXT n'' 

2770 GOSUB 3310 
2280 PETURN 

2290 DATA 33,0,0,0,0,0,0,0,0,35,0,1 
>7,15,31,31,63,63,37,126,255,255,25 
5,255,255,255,255,38,O,128,224,240, 
248,248,252,252,39,O,O,O,O,O,O,O, n 
2300 DATA 33,0,0,0,0,0,1,3,7,35,63, 

63.31.15.7.251.253.254.37.755.255.2 


55.255.255.255.255.255.38.252.252.2 
48,240,224,223,191,127,39,0,0,0,0,0 
,128,192,224 

2310 DATA 33,15,31,31,63,63,63,63,6 

3.35.255.255.255.255.255.255.255.25 

5.37.126.255.255.255.255.255.255.25 

5.38.255.255.255.255.255.255.255.25 
5,39,240,248,248,252,252,252,252, 25 
2 

2320 DATA 33,31,31,15,7,3,1,0,0,35, 
255,255,255,255,254,252,240,0,37,25 
5,219,153,24,24,60,60,60,38,255,255 
,255,255,127,63,31,0,39,240,248,240 
,224,192,128,0,0 

2330 DATA 33,0,0,0,0,0,0,0,0,35,0,0 

,0,0,3,15,112,0,37,60,126,126,126,2 

55,129,0,0,38,0,0,0,0,192,240,14,0, 

39,0,0,0,0,0,0,0,0 

2340 RESTORE 2410 

2350 FOR nv=3 TO 7 

2360 FOR i=1 TO 5:FOR nn=l TO 9 : REA 
D n(nn):NEXT nn:SYMBOL n(l>,n<2),n< 
3),n(4),n<5),n < 6 ),n(7),n( 8 >,n(9):NE 
XT i 

2370 LOCATE e+1,d+nv:PAPER 1:PEN b: 
PRINT M| #*/.&’" 

2380 NEXT nv 
2390 GOSUB 3310 
2400 PETURN 

2410 DATA 33,0,0,0,0,0,0,0,0,35,0,0 

,0,0,1,3,7,15,37,24,60,126,255,255, 

255,255,255,38,0,0,0,0,120,192,224, 

240,39,0,0,0,0,0,0,0,0 

2420 DATA 33,0,0,0,0,0,1,1,3,35,31, 

63,127,255,255,255,255,255,37,255,7 

55.255.255.255.255.255.255.38.248.2 
52,254,255,255,255,255,255,39,0,0,0 
,0,0,128,192,192 

2430 DATA 33,3,3,3,3,3,1,1,0,35,255 
,255,255,255,255,255,255,255,37,255 
,255,255,255,255,255,255,255,38,255 
,255,255,255,255,255,255,255,39,192 
,192,192,192,192,128,128,0 
2440 DATA 33,0,0,0,0,0,0,0,0,35,255 
,177,63,31,14,0,0,0,37,255,219,153, 
24,60,60,60,60,38,255,254,252,248,1 



12,0,0,0,39,0,0,0,0,0,0,0,0 

2450 DATA 33,0,0,0,0,0,0,0,0,35,0,0 

,0,3,15,56,64,0,37,126,126,126,255, 

192,0,0,0,38,0,0,0,192,240,12,2,0,3 

9,O,O,O,O,O,O,O,O 

2460 RESTORE 2730 

2470 FOR i=l TO 2:READ x ,y 

2480 LOCATE x +s,y+d:PAPER tiPEN b:P 

RINT MIDS(b*,c,1)sNEXT i:GOSUB 3310 

:PETURN 

2490 RESTORE 2740 

2500 FOR i=l TO 3:READ x,y 

2510 LOCATE x + e, y+d: PAPER 1: PEN bsP 

RINT MID*(b*,c,1)sNEXT i :GOSUB 331 

Os RETURN 

2520 RESTOPE 2750 

2530 FOR i=l TO 4:READ x, y 

2540 LOCATE x +«,y+d:PAPER 1sPEM bsP 

RINT MIDí(b*,c,1):NEXT isGOSUB 3310 

:PETURN 

2550 RESTORE 2760 

2560 FOR i=l TO 55READ x, y 



2570 LOCATE xy+dsPAPER 1:PEN bsP 
PINT MID«(bí,c,1)sNEXT isGOSUB 3310 
:RETURN 

2580 RESTOPE 2770 

2590 FOR i=l TO 6 :READ x,y 

2600 LOCATE x+®,y+ds PAPER 1sPEN b:P 

RINT MID*<bí,c,1) sNEXT isGOSUB 3310 

s PETURN 

2610 RESTORE 2700 

2620 FOR i=l TO 7sREAD x,y 

2630 LOCATE x+ ®,y+dsPAPER 1sPEN b:P 

PINT MIDS(b*,<=, 1) sNEXT i s GOSUB 3310 

:RETURN 

2640 RESTORE 2790 

2650 FOR i=l TO 0s READ x,y 

2660 LOCATE x +®,y+d: PAPER 1sPEN bs: 

PRINT MID*(b$,c,1)s NEXT isGOSUB 331 

OsRETURN 

2670 RESTORE 2800 

2680 FOR i=l TO 9:READ x,y 

2690 LOCATE x+»,y+d:PAPER 1sPEN bsP 

PINT MID*(bí,c,1)s NEXT isGOSUB 3310 

:RETURN 

2700 PESTOPE 2810 

2710 FOR i =1 TO lOsREAD x., y 

2720 LOCATE x+®,y+d:PAPER 1sPEN bsP 

RINT MID*(b*,c,1)sNEXT isGOSUB 3310 

sRETURN 

2730 DATA 3,3,3 ,6 

2740 DATA 3,3,3,5,3,7 

2750 DATA 2,3, 4,3,2,7,4,7 

2760 DATA 2,3,4,3,2,7,4,7,3,5 

2770 DATA 2,3,4,3,2,5,4,5,2,7,4,7 

2780 DATA 2,3,4,3,3,4,2,5,4,5,2,7,4 

,7 

2790 DATA 2, 3, 4, 3,3, 4,2,5, 4,5, 3, 6 ,2 
,7,4,7 

2800 DATA 2,3, 3, 3,4,3,2,5,3,5,4,5,2 
,7,3,7,4,7 

2810 DATA 2,3,4,3,2,4,4,4,2,5,4,5,2 
, 6 ,4, 6 , 2 ,7,4,7 
2820 RESTORE 2900 
2830 FOR nv=3 TO 6 

2840 FOR i=1 TO 5sF0R nn=l TO 9:REA 
D n(nn)s NEXT nns SYMBOL n(l),n(2),n( 
3),n(4),n<5),n( 6 ),n(7),n( 8 ),n(9):NE 
XT i 

2050 LOCATE e+1,d+nvsPAPER 1sPEN bs 
PRINT " ! " 

2860 NEXT nv 

2870 LOCATE e+l,d+7:F0R j«0 TO 4:PA 
PER 1s PEN b s PRINT MID*(bS,c,1)jsNEX 
T j 

2880 GOSUB 3310 
2890 RETURN 

2900 DATA 33,0,0,0,0,0,0,0,0,35,255 
,251,123,59,31,31,31,31,37,255,109, 
109,109,255,224,224,227,38,255,190, 
188,184,248,16,16,200,39,0,0,0,0,0, 
0 , 0,0 

2910 DATA 33,0,0,0,0,0,0,0,0,35,31, 
31,31,31,31,31,63,63,37,225,224,224 
,225,225,224,240,244,38,132,2,2,6,1 
20,248,8,24,39,0,0,0,0,0,0,0,0 
2*20 DATA 33,0,0,0,0,0,1,14,16,35,6 
3,16,16,15,16,228,2,113,37,227,1,0, 
255,0,33,82,36,38,40,1*2,64,128,64, 
62,1,112,39,0,0,0,0,0,0,128,120 
2930 DATA 33,0,0,0,0,0,0,0,0,35,128 
,68,131,0,0,0,0,0,37,0,0,1,222,32,0 
,0,0,38,8,16,8,0,0,0,0,0,39,0,0,0,0 
,0,0,O,O 

2940 PESTOPE 3020 
2950 FOR nv=3 TO 6 

2*60 FOR i=l TO 5s FOR nn=l TO *s REA 
D n(nn > s NEXT nn:SYMBOL n(l),n(2>,n( 
3),n(4),n <5),n( 6 ),n(7),n < 8 >,n(9):NE 
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XT i 

2 Q 70 LOCATE e + 1 , d+nvj PAPER 1 : PEN b: 
PRINT " í #•/.&’ " 

2980 NEXT nv 

2990 LOCATE e+l,d+7:F0R j=0 TO 4:PA 
PER 1:PEN brPRINT MIDÍ<bí,c,1);;NEX 
T 

3000 GOSUB 3310 
3010 RETURN 

3020 DATA 33,0,0,0,0,0,0,0,0,35,0,3 
,3,62,126,140,128,128,37,126,255,25 
5,247,247,99,0,0,38,0,192,192,188,1 
90,17,1,1,39,0,0,0,0,0,0,0,0 
3030 DAT A 33,0,0,0,0,0,0,0,0,35,214 
,255,254,254,249,248,251,177,37,102 
,255,60,0,195,0,195,129,38,107,255, 
127,127,159,31,223,141,39,0,0,0,0,0 
, 0 , 0,0 

3040 DATA 33,0,0,0,0,0,0,0,0,35,112 
,48,48,16,28,28,15,15,37,24,36,60,0 
,24,126,24,0,38,14,12,12,12,56,56,2 
40,240,39,0,0,0,0,0,0,0,0 
3050 DATA 33,0,0,0,0,15,8,8,0,35,1, 

1,7,252,3,0,0,0,37,0,0,0,0,0,195,40 
,48,38,128,128,208,63,192,0,0,0,39, 
0,0,0,0,240,16,16,0 
3060 RESTORE 3140 
3070 FOR n v=3 TO 6 

3080 FOR i=1 TO 5:FOR nn=l TO 9:REA 
D n(nn):NEXT nn:SYMBOL n(l),n(2),n< 
3),n(4),n(5),n( 6 ),n(7),n( 8 ),n(9) :NE 
XT i 

3090 LOCATE e+1,d+nv:PAPER 1:PEN b: 
PRINT *• • #71S,^ ’• 

3100 NEXT nv 

3110 LOCATE @+1,d+7;FGR j=0 TO 4:PA 
PER IsPEN b:PRINT MIDí<bí,c,1);:NEX 
T 

3120 GQSUB 3310 
3130 RETURN 

3140 DATA 33,0,0,0,0,0,0,0,0,35,68, 
78,123,63,31,15,62,61,37,33,115,22? 
,255,115,255,24,193,38,9,157,247,25 
4,156,248,62,222,39,0,0,0,0,0,0,0,0 
3150 DATA 33,0,0,0,0,0,0,0,0,35,56, 
27,25,24,24,12,14,15,37,34,120,128, 
0,0,34,28,255,38,14,236,204,12,12,2 
4,56,248,39,0,0,0,0,0,0,0,0 
3160 DATA 33,0,15,57,73,136,136,136 
,128,35,7,255,193,192,192,64,64,0,3 
7,255,227,255,255,127,62,0,0,38,240 
,255,195,131,3,2,2,0,39,0,240,156,1 
46,18,18,18,2 

3170 DATA 33,4,2,1,0,0,0,0,0,35,0,2 
4,25,129,65,63,0,0,37,0,0,0,0,0,255 
,24,0,38,0,24,152,129,130,252,0,0,3 
9,16,32,64,128,0,0,0,0 
3180 REM ************************** 
* 

3190 REM «FONDO Y MARCO DE LA CAPTA 

* 

7200 REM *«*»*»*»»«**«♦»♦««*»»*»««» 

* 

3210 FOR i=l TO 9¡LOCATE e,d+i:PAPE 

R 1 SPRINT " ";NEXT i 

3220 {■ = «* 16-16 

3230 g=39Q-d*16+2 

3240 PLOT -f , g, 2 

3250 DRAWR 110,0:DRAWR 0,-146:DPAWP 
-110,0:DRAWR ó,146 
3260 PEN 3 > 

3270 RETURN 

3280 REM i************************* 
* 

3290 REM « IDENTIFICADOR DEL NAIPE 

» 

3300 REM i************************* 
* 

3310 PRINT CHRí (22) ; CHRí (1) ; : PAPER 
IsPEN b:LOCATE e,d+l:PRINT MIDí(aí, 
a,1)s LOCATE e,d+2:PRINT MIDí(b*,c,l 
) : LOCATE ©+ 6 , d+9: PRINT MIDí(aí,a,l> 
¡LOCATE e+ 6 ,d+ 8 :PRINT MIDí(b*,c,l): 
PRINT CHRf(22); CHRÍ(O);¡GOSUB 3240 
3320 PAPER O 
3330 RETURN 

3340 REM »«*»*♦««*«»«»♦#*»«♦«*»♦**« 
* 

3350 REM « IMPRIME EL MENSAJE 

t 


7360 REM **«»«««#«»»««««*»«#«**«*«* 
* 

7370 LOCATE 1,23¡PAPER O ¡PRINT cí:P 
APER 2¡PEN 1:LOCATE 21-LEN<dí)/2,27 
¡FOR i = l TO LEN <dí ) :PRINT MIDS<dí,i 
,1 > ;¡NEXT i 
3380 PAPER O 
3390 RETURN 

3400 REM «*#««*«*«»««*#«»»»*»****»» 
* 

3410 REM « EXTRAE CARTA DEL MAZO 

« 

3420 REM **»***»»«»««*#♦♦»»*♦**»*#» 
* 

3430 c=INT< f ASC (MIDí<e$, o, l))-l)/13 
)+l:a=ASC(MID*<e*,o,1) ) -13* <c-l ) : IF 
c >2 THEN b=2 ELSE b=3 
3440 RETURN 

3450 IF a>10 THEN a=10 
3460 RETURN 

3470 REM ************************** 

« 

3480 REM * ESPERA PULSAR DE TECLA 

* 

3490 REM ************************** 
* 

7500 etí=INKEYí: WHILE et.í< >" " : FOR r 



at = l TO 50:NEXT:etí=INKEYí:WEND 
3510 x*=""¡WHILE x*<>"S" AND x*<>"N 
": x í=UPPERí(INKEYÍ)¡WEND 
3520 RETURN 

3530 REM ************************** 
t 

7540 REM * SIJBRUTIÑAS AUXILIARES 

* 

3550 REM ************************** 
* 

3560 PLOT 3*16-16,400-12*16:DRAWR 1 
6 ,OsRETURN 

3570 PLOT 38*16-16,400-12*16:DRAWR 
16,0:RETURN 

3580 PLOT 35*16-16,400-9*16,2¡DRAWR 
5*16,0:DRAWR 0,7*16:DRAWR -5*16,0: 
DRAWR O,-7*16:RETURN 

3590 REM ************************** 

3600 REM * MAXIMAS PUNTUACIONES * 
3610 REM ************************** 

3620 MODE 1:INK 3,24:INK 1,6:PEN 3: 
PAPER O:IF dg<=rec<6) THEN 3830 
3630 LOCATE 6,5:PRINT "ES UNO DE LO 
S MAS RICOS DE HOY" 

3640 PLOT 6*16-16-8,400-5*16-8,2:DR 
AWR 30*16+16,0:DRAWR O,32:DRAWR -30 
*16-16,OsDPAWR 0,-32 

3650 can*="HA TERMINADO CON"+STR*(D 
G>+" PTAS" 

3660 can=LEN(can*):IF can MOD 2=0 T 
HEN cant=" "+caní 

7670 PEN 2:LOCATE 20-can/2,10:PRINT 
caní 

3680 MOVE 12#16-8,400—16*16+8:TAG:P 
RINT "ESCRIBA Sil NOMBRETAGOFF 
3690 WINDOW #1,12,29,18,20:PAPER #1 
,2:PEN #1,1:CLS#1:LOCATE #1,6,2¡PRI 

NT #1, ".";STRINGí(13,8) ; 

3700 PLOT 12*16-16-2,400-20*16-2,3: 

DRAWR 17*16+16+2,O:DRAWR O,50:¡DRAW 

R -17*16-16-2,OsDRAWR 0,-50 

3710 WHILE INKEYÍ< >" ":WEND 

3720 tB$= ,, ":no(ní= 1 " 1 : WHILE tetOCHR* 

(13) 


3730 IF tai>CHR* <31 > AND taí<"z" AN 
D LEN(namí )<8 THEN nom*=nofní+tBi:PR 
INT #l,te*} 

3740 IF teí=CHRí<127) AND LEN(nam$) 
THEN nomí=LEFTí (ncimí, LEN (nomí) - 1 ) ¡ 
PRINT #l,CHRí(8);CHRí(16);";CHRí < 
8 ); 

7750 teí=INKEY* 

3760 WEND 

3770 PAPER O 

3780 recí( 6 )=nümt 

3790 rec( 6 )=dg 

3000 FOR i =6 TO 2 STEP -1 

3810 IF r bc < i)>rec<i-1) THEN ks$=rs 

cí<i):rBcí<¿)=rBci<i-l):r©ci(i-l)=k 

sí: ks=rBC < i >¡rec ( i ) -r ec( i -1):rec ( i - 

1 ) =k<= 

3820 NEXT i 
3030 CLS 

3840 PLOT O,O, 2: DRAWR 638,O:DRAWR O 
,398¡DRAWR -638, O:DRAWR 0,-398 
3850 PAPER 2:PEN 3 ¡LOCATE 8,1¡PRINT 
"LOS MAS RICOS DE HOY SON : " 

3860 FOR i = 1 TO 6 :PEN 1:PAPER 3¡L0C 
ATE 12,i*2+1¡PRINT USING "\ 

;rsc$(i);¡PAPER O:PEN 2:WHILE POS(# 
O)<24:PRINT WEND:PEN 2:PAPER 3 

¡PRINT USING "###### " $ rae ( i) 

3870 NEXT 

3880 FOR i-O TQ 640 STEP IB:PLOT i, 
0,2:DRAW O,400-i / 1.6:NEXT 
3890 FQP i=0 TO 640 STEP 18:PLOT i, 
0,2:DRAW 640,i / 1.6:NEXT 
3900 LOCATE 12,18:PEN 1:PAPER 2¡PRI 
NT » PULSE UNA TECLA. "¡LOCATE 12,1 
7:PRINT STRINGÍ<18,32);¡LOCATE 12,1 
9s PRINT STRINGÍ<18,32> 

3910 WHILE XNKEYí<WEND:WHILE IN 

KEYÍ=""¡WEND 

3920 PAPER O:PEN 1 

3930 CLS:INK O,10:INK 1,26:INK 2,0: 
INK 3,6 
3940 RETURN 

3950 REM ************************** 
** 

7960 REM * ESCRIBE VENTANA 

* 

7970 REM ************************** 
** 

3980 LOCATE #1,6,1¡PEN #1,1¡PRINT # 
1,"MANO N";CHRí(254);¡PRINT #1,USIN 
G "##";mano:LOCATE #1,1,2:PRINT #1, 
STRINGÍ(20,"-") 

3990 PEN #1,1¡LOCATE #1,1,3:PRINT # 
1,"1";CHRÍ(255);" CAMINO=";:PEN #1, 
3¡IF bj1=1 THEN PRINT#1,"BLACK JACK 
":FOR ret=l TO 300:NEXT ELSE PRINT 
#1,USING "##";s;¡PRINT #1," PUNTOS" 
4000 IF p THEN PEN #1,1:LOCATE #1,1 
,4:PRINT #1,"2";CHRí(254);" CAMINQ= 
";:PEN #1,3:IF bj2=l THEN PRINT #1, 
"BLACK JACK":FOR ret=l TO 300:NEXT 
ELSE PRINT #1,USING "##";p;¡PRINT # 
1," PUNTOS" 

4010 PEN #1,1:LOCATE #1,1,5:PPINT # 
1,"APUESTA:¡PEN #1,3:PRINT #1,USI 
NG "#####";h;¡PRINT #1," PTAS" 

4020 IF q THEN PEN #1,1¡LOCATE #1,1 
, 6 :PRINT #1,"SEGURO:";:PEN #1,3:PPI 
NT #1,USING "####";q;¡PRINT #1," PT 
AS" 

4030 IF r THEN LOCATE #1,1,7:PEN#1, 
3:PRINT #1,"APUESTA DOBLADA" 

4040 RETURN 



no realicen el troba/o duro, M. H. AMS- 
JUAD lo hace por ti. Todos los listados que incluyan 
este logotipo se encuentran o tu disposición en un cas¬ 
sette mensual, solicítanoslo. 
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EL MUNDO DE BLOQUES 


Uno de los temas más espinosos de la IA, todavía no resuelto, es lo que 
los investigadores en este terreno llaman «proceso del lenguaje natural» 
o «comprensión del lenguaje natural», es decir, conseguir que los 
ordenadores comprendan el lenauaje humano. 

Creo que todos podemos imaginar la complejidad que este propósito 
entraña, ya que nuestros idiomas están llenos de ambigüedades, frases 
hechas y coloquiales, etc, que nosostros mismos comprendemos sólo 
gracias al enorme banco de memoria que tenemos en nuestro cerebro, y 
a algo indefinible, por ahora al menos, que llamamos inteligencia. 

Los computadores no tienen de eso, pero, como ya hemos aprendido en 
el curso de IA, pueden simularlo de manera bastante convincente 

(recuerden el programa Eliza). 

En el caso del lenauaje, éste sólo puede ser comprendido dentro de un 
entorno predecible, esto es, que posea una serie de posibilidades o 

«movimientos» fijos. 

Hubo un hombre, Terry Winnograd, que marcó un hito hasta ahora 
insuperado con un programa, escrito en «Planner», en la comprensión 
del lenguaje natural; podía mantener conversaciones con su «obra» de 
una increíble complejidad. Nosotros, con algunas lógicas limitaciones, 
hemos escrito en Basic una versión del Mundo de Bloques, y, lo que es 
mucho más decisivo, hemos explicado con todo detalle las técnicas que 
se usan para que una máquina comprenda nuestra lengua y actúe en 

consecuencia. 

Sin más preámbulos, AMSTRAD Semanal presenta... El Mundo de 

Bloques. 


Por José Antonio Morueco González 
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INDICAME QUE MOVIMIENTO QUIERES 
- >coye el triangulo azul grande y ponía] 
▼ísAS® ~ íifi * c uadrad o rojo grande 
IND I C fíM 1 Qtil: MOVIMIENTO QU IERES 

■•y 


66 M. AMSTRAD ESPECIAL 






































































inteligencia artificial 
es un área de la informática muy importante, 
que nos permite atacar tareas que no podían 
ser realizadas hasta hace pocos años. La in¬ 
teligencia artificial tiene unas técnicas propias 
especiales y muy variadas según sea el obje¬ 
tivo a conseguir. Estos objetivos se dividen en 
tres grandes grupos: 

— Los sistemas expertos. 

— Los procesadores de lenguaje natural. 


— La robótica. 

Tanto la parte de los sistemas expertos co¬ 
mo la de la robótica no tienen mucho que ver 
con el programa aquí presentado, aunque sí 
es bueno saber un poco sobre su objetivo pri¬ 
mordial: ayudar al hombre a resolver situa¬ 
ciones y a tomar decisiones basándose en el 
conocimiento «inteligente» que tiene el orde¬ 
nador en el área del saber en la que estamos. 
Este conocimiento inteligente, su presentación 
y su gestión, es el que distingue la inteligen¬ 
cia artificial del resto de las técnicas informá¬ 
ticas. 


Lenguaje natural 


Por otra parte, que nos atañe más en este 
artículo, está el procesamiento del lenguaje na¬ 
tural. Para una persona que no esté familiza- 
rizada con el mundo de la programación, es¬ 
te problema puede parecerle no muy compi¬ 
lado, porque a él le cuesta muy poco compren¬ 
der lo que se dice en un escrito, o lo que se 
dice por la radio. Pero el problema de hacer¬ 
le entender al ordenador nuestro lenguaje na¬ 
tural, aun teniendo ciertas estructuras, es muy 
poco sumiso a unas reglas de construcción se¬ 
veras. Esta flexibilidad del lenguaje humano 
es la que complica las cosas al ordenador. 

Los lenguajes con los que el hombre se co¬ 
munica con el ordenador son de unas estruc¬ 
turas muy severas, y en los que hay pocas pa¬ 
labras distintas, aunque desde fuera pueda pa¬ 
recer todo lo contrario. Cuando una persona 
hace un programa en BASIC, por ejemplo, tie¬ 
ne que andarse con mucho cuidado de utili¬ 
zar exactamente las palabras reservadas que 
hagan falta; en caso contrario tendrá muchos 
errores. Cuando hablamos con un amigo no 
es necesaria tanta precisión, y de hecho no 
pensamos qué palabra usar en esta frase, o 
qué estructura sintáctica en aquella otra: sim¬ 
plemente decimos lo que se nos ocurra. 

Todo esto nos conduce a reflexionar sobre 
cómo hacer que podamos conseguir que el or¬ 
denador comprenda castellano directamente. 
Para ello es necesario hacer un programa que 
sirva de interfase entre nuestras palabras y la 
acción que se quiere realizar. Esta interfase 
es la que traduce, a código más comprensi¬ 
ble para el ordenador, dichas palabras. 


Hasta ahora, no se han hecho procesado¬ 
res de lenguaje natural que puedan conside¬ 
rarse completos, sino que se tiene un conjun¬ 
to de palabras limitado o palabras claves, que 
son las que entiende el programa y mediante 
las cuales intenta comprender las frases da¬ 
das, como se verá luego más prácticamente 
con el programa que se presenta. 


Claves del procesamiento 
del lenguaje natural 

El procesamiento de lenguaje natural tiene 
varios puntos fundamentales: 

— El diccionario, o conjunto de palabras 
que son conocidas y pueden traducirse. 



— Las reglas sintácticas y estructuras del 
lenguaje natural que son analizadas por el 
procesador. 

— Las herramientas que pueden usarse, etc. 

Con respecto a las herramientas, es muy im¬ 
portante hacer notar que el BASIC no es pre¬ 
cisamente muy adecuado para la inteligencia 
artificial, lo que produce en algunos casos cier¬ 
tas limitaciones; se están desarrollando lengua¬ 
jes, como LISP o PROLOG, más adecuados pa¬ 
ra estas cuestiones, y permiten unas represen¬ 
taciones de las estructuras más satisfactorias. 

De todas formas esto no es un obstáculo in¬ 
salvable; de hecho, pienso que es interesante 
ver, en un lenguaje de programación de gran 
extensión, algunas de estas técnicas, aunque 
la forma de representación no sea la más óp¬ 
tima. 

En el caso que nos ocupa, tenemos un con¬ 
junto limitado de palabras que realmente tra¬ 
duce el programa, pero a la hora de usarse 
parece que hay más, debido a que puden 
usarse muchas más palabras, aunque sean ig¬ 
noradas en la comprensión de la frase. Pase¬ 
mos pues al programa. 


Un procesador 
de lenguaje natural 


¿Qué se puede hacer con el programa? 

Antes de ver cómo funciona, veamos un po¬ 
co cómo se usa. Cuando des al «run», para eje¬ 
cutar el programa, te aparecerán varios cua¬ 
dros y triángulos de distintos colores y tama¬ 
ños, y debajo de éstos, unas líneas de texto. 



Ahí es donde debes ir dándole las órdenes al 
programa. Esta órdenes consiten en cuál de 
las figuras quieres que se mueva, y dónde. Por 
ejemplo puedes escribir: 

pon el triángulo pequeño rojo enci¬ 
ma del cuadro grande azul 

Como puedes observar, tienes también unos 
números debajo de las figuras, del 1 al 12, que 
también pueden usarse; por ejemplo, después 
del movimiento anterior, la posición donde es¬ 
taba el triángulo pequeño rojo, la número 10, 
queda vacía. Por ello, puedes ahora llevar allí 
otra figura; por ejemplo puedes dar la orden: 

lleva el cuadro pequeño verde a la 
posición 10 

De esta forma puedes ir realizando los mo¬ 
vimientos que desees de una forma natural. 
Así, por ejemplo, el primer movimiento lo pue¬ 
des expresar de muchas maneras diferentes en 
castellano, igualmente comprensible para el 
programa; algunas de estas formas podrían 
ser: 

pon sobre el cuadro azul grande el 

triángulo rojo pequeño apila el 
triángulo rojo pequeño en el cuadro 
azul grande 

sitúa debajo del triángulo pequeño 
rojo el cuadro grande azul 

Como ves, hay bastantes variaciones ideo- 
máticas para expresar una cosa tan sencilla 
como ésta. Este es uno de los problemas de 
traducir por ordenador el lenguaje natural, co¬ 
mo decíamos en la introducción. Debido a ello 
hay ciertas limitaciones, pero bastante razo¬ 
nables. Por ejemplo, no intentes comprender 
frases que pueden ser ambiguas en su signifi¬ 
cado, ni frases tratadas de forma poética. — 
como podrían ser «pon el gran cuadro rojo so¬ 
bre el triángulo cielo»— cosa que complica¬ 
ría más todavía la lógica del programa, ya de 
por sí complicada sólo con un lenguaje nor¬ 
mal. 


Las leyes semánticas 
del programa «bloques» 

Aparte de las cuestiones sintácticas, también 
he introducido algunas reglas semántias sen¬ 
cillas como son: 

— No puedes poner figuras del mismo co¬ 
lor apiladas ¡untas. 

— No poner nada encima de un triángu¬ 
lo, porque, visto con naturalidad, se caería. 

— Algo grande no pued ir encima de algo 
más pequeño, cosa también razonable, etc. 
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Estas reglas tienen por misión que se vea có¬ 
mo se entiende la frase y, o bien se lleva a ca¬ 
bo el movimiento indicado, si es posible, o bien 
se indica el porqué no se puede hacer. 

Para que lo veas, haz todas las combinacio¬ 
nes posibles de movimientos, e irás viendo que 
hay muchos posibles. 

Por último notar que para acabar basta con 
decirle «adiós». 

Visto ya cómo usarlo entremos un poco en 
su construcción. La idea general consiste en 
adivinar qué palabras clave están en la frase 
del usuario y cuál es la estructura de la frase. 


Representación 
Del conocimiento 


Cuando empiezas a pensar en cómo cons¬ 
truir un programa así, lo primero que hay que 
limitar es el número de palabras y estructuras 
que van a ser comprendidas. En nuestro caso 
tenemos 5 estructuras generales, las cuales son 
bastante razonables. 

Estas estructuras son: 


1. Poner el objeto A encima del 
objeto B. 

2. Poner el objeto B debajo del 
ob eto A. 

3. Poner encima del objeto B el 
ob eto A. 

4. Poner debajo del objeto A el 
ob eto B. 

5. Poner el objeto A en la posición 
n (con n entre 1 y 12). 


donde el objeto puede ser un triángulo o un 
cuadrado, de un cierto tamaño (grande o pe¬ 
queño), y un cierto color (verde, azul o rojo). 



Cada objeto, junto con sus atributos, se con¬ 
siderará como un todo a la hora de analizar 
la frase. También hay que notar que llamo ob¬ 
jeto A al que está encima, y objeto B al que 
va a estar debajo; esto se usará al hacer el 
programa. 

En el programa hay varias partes, que ire¬ 
mos viendo: 

— El programa principal, es la mayoría del 
programa, y donde se va analizando la estruc¬ 
tura de la frase y, una vez hecho esto, se lle¬ 
van a cabo las acciones semánticas (movimien¬ 
to a hacer o mensaje de por qué no hacer el 
moviento). 


- Las subrutinas 2500 y 3000, cuya misión 
es dibujar, o borrar, cuadrados y triángulos, 
respectivamente. 

— La subrutina 2000 es clave y tiene por 
misión decir en qué posición está una palabra 
(pal$) en una frase (fr$), si está. 

Vayamos al programa principal línea a lí¬ 
nea. Para comprenderlo, veamos primero las 
variables más importantes y su función: 

~ px(i),py(i) -con i entre 1 y 12- tienen 
la posición horizontal y vertical de los obje¬ 
tos. Estos objetos están numerados del 1 all 2 
y son: 

I =cuadrado azul grande. 

2=cuadrado azul pequeño. 

3=cuadrado rojo grande. 

4=cuadrado rojo pequeño. 

5=cuadrado verde grande. 

6=cuadrado verde peaueño. 

7=triángulo azul grande. 

8=triángulo azul pequeño. 

9=triángulo rojo grande. 

10=triángulo rojo pequeño. 

II = triángulo verde grande. 

12=triángulo verde pequeño. 

En las primeras líneas se ¡nicializan estas po¬ 
siciones para la configuración inicial. También, 
asociada a éstas, está p(i), que mantiene siem¬ 
pre las posiciones iniciales de px(¡), y sirve para 
los números que aparecen en pantalla del 1 
al 12, y para cuando se indique que se ha de 
poner algo en dichas posiciones. 

— db(i), indica qué figura está debajo de 
la i-esima; si no hay ninguna valdrá 0. Por 
ejemplo, si el triángulo rojo pequeño está en¬ 
cima del cuadrado azul grande entonces 
db(10) = l. 

— oc(¡)— con j entre 1 y 6 —indica si el cua¬ 
drado número j está cubierto— 0c(j)=—1— 
o si está descubierto —oc(j) = 0. 

— La variable p va a usarse para posicio¬ 
nes en frases donde está cierta palabra, se¬ 
gún se calcula en la subrutina 2000. Además 
hay variables pr, pa y pb que indican posicio¬ 
nes en la frase de la preposición, e 
objeto A y el objeto B. Está tam¬ 
bién la varible n, que indica 
la posición de la frase 
donde se ha de empezar a 
buscar la palabra. 

— na y nb contienen al final los 
números asociados a los objetos A y 
B respectivamente —números del 1 al 12. 

— Otra variable importante es hn que in¬ 
dica si la estructura de la frase es la quinta, 
es decir, en la que se indica un movimiento a 
una posición numérica, en cuyo caso hn vale 
—1. En caso contrario valdrá 0. 

— También está la variable es, que vale 
para las estructuras 1 y 4, en las cuales el ob 
¡eto A está delante, en la frase, del objeto B; 
y vale 2 en las estructuras 2 y 3, que ocurre 
lo contrario. 

— La variable ar indica si la estructura usa 
preposiciones como en, encima de, sobre, en 
cuyo caso ar vale —1, o si se usan preposi¬ 
ciones como bajo, debajo, en cuyo caso vale 


0. Es decir, es otra variable para discernir la 
estructura. 

— La variable aux indica si el objeto A es 
un triángulo —aux = 6— o es un cuadrado — 
aux=0. 

— La variable t indica si el objeto es gran¬ 
de o pequeño, según valga 32 ó 16; t es la 
apotema del objeto. Este valor depende de si 
el número del objeto es par —pequeño— o im¬ 
par —grande. 

— Para indicar el color están las variables 
ca y cb. 

Hay alguna variable más, pero éstas son las 
más importantes. 

Las demás las iremos viendo cuando apa¬ 
rezcan. 

Veamos ya la realización del programa. 

Las primeras líneas, hasta la 280, es la 
inicialización de las variables, dibujar en pan¬ 
talla el estado inicial, con el control de colo¬ 
res conveniente, la construcción de la venta¬ 
na de texto. 

Esta parte es sencilla y su única complica¬ 
ción es el cálculo de las posiciones en panta¬ 
lla en donde se han de dibujar los objetos. 

Después se escribe el texto inicial y, en la lí¬ 
nea 300, se pide ya el movimiento deseado, 
que se mete en la variable fr$. 

Se mira si la palabra es «adiós» para termi¬ 
nar. 

A partir de aquí, se empieza ya el análisis 
de la frase con la intención de saber al final 
del análisis el valor de la na y nb, que repre¬ 
sentan el número del objeto de arriba y aba- 
¡o. 
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Entre las líneas 330 y 370 se mira si hay en 
la frase algún número del 1 al 12. Si lo hay 
estamos en la quinta estructura y hacemos 
hn =—1. Si no la hay hecemos hn = 0. 

Si hemos encontrado el número, que será 
el ji, miramos —líneas 410 a la 450— si dicha 
posición ¡i está ocupada; esto ocurrirá cuan¬ 
do exista algún ¡ con p(ji) = px(j), es decir, cuan¬ 
do algún objeto tenga su posición horizontal 
en la misma de ¡i. Si está ocupada, entonces 
se manda el mensaje correspondiente y se 
vuelve a empezar con otra orden. En caso con¬ 
trario, se va a la línea 620, para ver qué ob¬ 
jeto es el que ha de llevar a la posición ¡i. 

Si hn=0 entonces sigue por las líneas 460 
hasta la 550, en donde se va viendo cuál es 
la preposición que se usa en la frase. Según 
cual sea, ar valdrá —1 ó 0, según vimos al ver 
las variables. Si no se encuentra ninguna de 
estas preposiciones se manda el mensaje co¬ 
rrespondiente y se empieza de nuevo. En la 
610 ponemos en pr la posición donde estaba 
dicha preposición. 

En las 620-630 se comprueba si la palabra 
cuadrado está en la frase. Si no está y no es¬ 
tamos en la quinta estructura, entonces es im¬ 
posible porque el objeto de abajo tiene que 
ser un cuadrado y se manda el mensaje con¬ 
veniente de la línea 650. 

En caso de la quinta estructura, si hn, es po¬ 
sible que no esté ningún cuadrado en la fra¬ 
se, y será un triángulo. Si no estamos en la 
quinta estructura, entonces hacemos pb=p, lo 
cual es provisional, y buscamos en la frase si 
hay, después de el cuadro encontrado, otro 
cuadro —por eso tomo n = pb+8, posición 



posterior a la de cuadrado. Si lo hay, no ha¬ 
ce falta buscar si está el triángulo y nos salta¬ 
mos las líneas 710-740; y variamos las posi¬ 
ciones pa y pb, suponiendo el caso 1. Las po¬ 
siciones se cambiarán o se dejarán según la 
estructura que tengamos. 

Si no hay dos cuadrados se mira si hay trián¬ 
gulo, como antes con los cuadrados; si no lo 
hay se manda el mensaje como pa, y aux=6, 
como se vio al ver las variables. 

Así ya tenemos en pa y pb las posiciones de 
los dos objetos. En caso de la quinta estructu¬ 
ra no es necesario y simplemente no influirá 
en su ejecución dichos parámetros. 



Una parte fundamental está entre las líneas 
750-760, en donde se analiza la estructura en 
la que nos encontramos. En las líneas 750 y 
753, por medio de dos instrucciones condicio¬ 
nadas, se consigue saber cuál es el valor de 


es: 



— Si pr < pa y pr < pb y ar= 1 entonces es¬ 
taremos en la estructura 2 con lo que es=2. 

— Si pr < pa y pr < pb y ar=0 entonces es¬ 
taremos en la estructura 4 con lo que cs=1. 

— Si no se/da la condición de las posicio¬ 
nes y ar=—1, estaremos en la estructura 3 y 
es=2. 

Tras esto sabremos ya el ordep ¡^objeto 
A y el objeto B: 
cs= 1: el objeto A 
es=2: el objeto B delar 
Recordar que el objetj 
el objeto B es el de abj 
importante saber su i 
los se consiguen viendo todos los casos posi¬ 
bles que se pueden presentar en las extructu- 
ras, y, por ello, es lo más complicado de en¬ 
tender. 

Después, en la línea 756, se comprueba si 
el objeto B, el de abajo, es un 
medio de un if un poco complicado, pero só¬ 
lo ve las posibilidades de que así^^^^^f 
cho caso nos vamos a la línea 65C 
da el nombre conveniente. 

Por último, en la línea 758, si es=2, es de¬ 
cir, si estamos en una estructura con el objeto 
B delante del objeto A, se intercambian pa y 
pb, para que tengan ya la posici óf 
de forma correcta, respectivan^^^B 
Entre las líneas 760 y 950 
lor que tiene cada objeto A y B actuales.., 
ra ello, se usa un data con las |Wabras 
rojo y verde, y sus números asocie 


y 3. Si estamos con hn=—1 entonces es más 
sencillo porque sólo se busca un color. 

Veamos qué pasa en los demás casos. Para 
ello se toman dos subpartes de la frase total: 

— fr$(0) es la correspondiente al objeto A. 

— fr$(l) es la correspondiente al objeto B. 
Estas se calculan según estemos en unas es¬ 
tructuras o en otras, dependiendo del valor de 
es y vía unos cálculos sencillos de las posicio¬ 
nes pb y pa. Después se van leyendo de los 
datas estos colores para cada subfrase ade¬ 
cuada, obteniendo en n(0) el color de A, y en 
n(l) el de B, valores que se traspasan a ca y 
cb respectivamente. Si no se encuentran estos 
colores se saca el mensaje adecuado, saltan¬ 
do en la línea 910 a la 720. 

Si los colores coinciden, también se lanza el 
mensaje adecuado. En el caso de hn=—1 só¬ 
lo tenemos, como es de esperar, un sólo co¬ 
lor en ca. 

Entre las líneas 960-1080, se calcula, de for¬ 
ma parecida, los tamaños de los objetos A y 
B, los cuales están al final en n(0) y n(l) res¬ 
pectivamente. El procedimiento es similar al 
anterior, incluido para hn=—1. 

Ahora, calculo ya los valores de na y nb, 
que son los números asociados a los objetos 
A y B que se han calculado. Si estamos en la 
estructura 5, hn=—1, nb=0 y no hay proble¬ 
mas. En la línea 1110 se calcula, en caso de 
la estructura 5, si el objeto cabe en la posición 
en donde se le intenta colocar. 

En estas líneas se comprueba también si el 
cuadrado de abajo, objeto B, estaba ya ocu¬ 
pado, oc(nb)=—1, o si el de arriba está ya 
cubierto. En ambos casos el movimiento no se 
hace y se manda el mensaje conveniente. Tam¬ 
bién se ha comprobado si el objeto de arriba 
no es mayor que el de abajo. 

Lo que queda de programa principal es bo¬ 
rrar el objeto A de donde esté y colocarlo so¬ 
bre el objeto B. Para borrarlo se vajy la su¬ 
brutina 2500.Ó 3000, según 
triángulo, y con br =—1 se |' 

,de fondo dicho objeto. Par 
sitio actual se calcula,< 
jeto sea granae o pequ 
nuevas posiciones; la vtWWBIe xx se usa para 
saber, a 0Í|id^B ,rar objeto^.va a ca- 
nueva posición, dentro de la pan¬ 
talla. 

Por último poitpr debajo del objeto A el ob¬ 
jeto b — db(na) = f)b —y desocupar el anterior, 
lo cual se hace anles, como debe ser. Ya sólo 
^^^^H|^PPinas de dibujo son sen- 
n^ndicar que la variable p indica el 

color. 

Conclusión: 

Espero que hayas en 
construcción del progra 
que veas lo complica 


endido las ideas de la 
i que te sirva para 
i qu^resulta llegar a 


comprender, digitalmente, el lenguaje ha 


no. _ 

. También es importante notar que el 
^no es muy adecuado, com ya quedó di- 
corno se demuestra al seguir el programa pa 
so a pas^^B 
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10 OIM PX<12),PY<12>,p<12>,DB< 12 ) 

20 MODE 1 

30 INK 0,11:INK 1,0¡INK 2,9¡INK 3,6 
40 BORDER 0 
50 PAPER 1: CLS 

60 PAPER 0 ¡WINDOW «1,1,40,20,25 

70 POR 1 = 1 TO 6 : PRINT ttl ¡NEXT 

80 PX<1)=43¡P< 1 )=43 

90 POR 1=2 TO 12 

100 PX<I)=PX<1-1 ) + 52 

110 P<I)=PX<I) 

120 NEXT I 

130 FOR 1=1 TO 12 

140 IF I MOD 2=0 THEN PY<I)=lél ELS 

E PY(I)=177 

150 NEXT I 

160 FOR 1=1 TO 6 

170 GOSUB 2500 

180 NEXT I 

190 FOR 1=7 TO 12 

200 60SUB 3000 

210 NEXT I 

220 FOR J=l TO 12 

230 K=K+3 

240 IF K=9 OR K=22 THEN K=K+1 
250 LOCATE K,18:PRINT MID*< STR*< J) 
2 , 2 ) ’ 
260 NEXT J 


270 PRINT 41," TIENES EN LA PANTAL 
LA CUADRADOS Y TRIANGULOS GRA 

NDES Y PEQUEÑOS” 

280 PRINT ttl," PUEDES INDICAR SI Q 
UIERES PONER ALGO EN DONDE ESTAN 
LOS NUMEROS,DICIENDOLO" 

290 PRINT ttl,” INDICAME QUE MOVIMI 
ENTO QUIERES" 

30 0 AUX=0 

310 UNE INPUT ttl ,”==>" ,Fr* 

320 FR*=UPPER*<FR*> 

330 N=1 

335 PAL*=“ADIOS" ¡GOSUB 2000 

336 IF P>0 THEN CLSiEND 
340 FOR JI =1 TO 12 

350 PAL*=MID*(STR*<JI),2,2) 

360 GOSUB 2800 

370 IF P>0 THEN 400 

380 NEXT JI 

390 HN=0:GOTO 460 

40 0 HN=-1 

410 FOR J =1 TO 12 

420 IF P(JI)=PX<J) THEN 450 

430 NEXT J 

440 GOTO 620 

450 PRINT «I,» NO PUEDES PONER NAD 

A EN EL NUMERO "¡JI;" PORQUE E 

STA OCUPADO”¡GOTO 290 

460 PAL*="EN"¡GOSUB 2000 

470 IF P>0 THEN 580 

480 PAL*="ENCIMA"¡GOSUB 2800 

490 IF P>0 THEN 580 

500 PAL*= "*SOBRE” ¡GOSUB 2800 

510 IF P>0 THEN 580 

520 PAL*=“DEBAJO"¡GOSUB 2000 

530 IF P>0 THEN 600 

540 PAL*="BAJO"¡GOSUB 2000 

550 IF P>0 THEN 600 

560 PRINT #1," NECESITO QUE ME DIG 
AS ALGO MAS PARA SABER EL 

MOVIMIENTO" 

570 GOTO 310 


580 AR=—1 
590 GOTO 610 
600 AR =0 
610 PR=P 

620 PAL*=“CUADRADO"¡GOSUB 2000 
630 IF P>0 THEN 660 
640 IF HN THEN 700 

650 PRINT ttl," SI PONES ALGO ENCIM 

A DE UN TRIANGULO PUEDE CAERSE.R 

EPITE"¡GOTO 290 

660 IF HN THEN 740 ELSE PB=P 

670 N=PB +8 

680 GOSUB 2000 

690 IF p <>0 THEN PA=PB¡PB=P¡GOTO 7 
50 

70 0 N=1 

710 PAL*="TRIANGULO"¡GOSUB 2000 
720 IF P=0 THEN PRINT # 1 ," NO ME D 
AS SUFICIENTE INFORMACION"¡GOTO 298 
730 PA=P¡AUX =6 

740 IF HN THEN 1=0¡ P=0¡GOTO 860 
750 IF PR<PA AND PR<PB THEN CS=2 EL 
SE CS=1 

753 IF NOT AR THEN CS=3-CS 

755 IF AUX=0 THEN 758 

756 IF <CS=1 AND PB<PA> OR <CS=2 AN 
D PB>PA) THEN 650 ELSE 760 

758 IF CS=2 THEN AB=PA¡PA=PB¡PB=A 8 


760 FT*=FR* 

770 IF CS=2 THEN 810 
780 FR*<0)=LEFT*(FT*,PB) 

790 FR* <1)=RIGHT* < FT*,LEN < FT*)-PB) 
800 GOTO 830 

810 FR*<0>=RIGHT*(FT*,LEN<FT*>-PA) 
820 FR*<1>=LEFT*<FT*,PA) 

830 FOR 1=0 TO 1 
840 N=1¡P=0 
850 FR*=FR*<I> 

860 WHILE PAL*O“N0" AND P=0 
870 READ PAL*,N(I) 

880 GOSUB 2008 

890 WEND 

900 RESTORE 

910 IF P =8 THEN 720 

920 IF HN THEN CA=N(0)¡GOTO 960 

930 NEXT I 

940 CA=N(0):CB=N<1) 

950 IF CA=CB THEN PRINTttl ," ESE MO 
OIMIENTO NO LO PUEDES HACER P 

ORQUE SON DEL MISMO COLOR"¡GOTO 290 
960 PL*<0>=“GRANDE"¡PL*<1)="PEQUENO 

970 IF HN THEN 1=8¡GOTO 1010 
980 FOR 1=0 TO 1 
990 FR*=FR*<I) 

1000 ENC=0 

1010 FOR J=0 TO 1 

1020 PAL*=PL*<J> 

1030 GOSUB 2000 

1040 IF PO0 THEN N( I )=J ¡ ENC=-1 
1058 NEXT J 

1060 IF NOT ENC THEN 720 
1070 IF HN THEN 1090 
1088 NEXT I 

1090 NA=2*CA-1+N(0)+AUX 

1100 IF NOT HN THEN 1130 ELSE NB=0 

1110 IF JI MOD 2<NA MOD 2 THEN PRIN 

T ttl," HAY NO CABE" ¡GOTO 290 

1120 GOTO 1280 

1130 NB=2*CB-1+N<1> 


1170 IF (NB MOD 2)<(NA MOD 2) THEN 
PRINT ttl," NO PUEDE HACERSE PORQUE 
EU DE ABAJO ES MENOR QUE 

EL OTRO"¡GOTO 290 

1190 IF OC(NB) THEN PRINT ttl," ESE 
CUADRADO YA ESTABA CUBIERTO"¡GOTO 
290 

1280 IF NA<7 THEN IF OC(NA) THEN PR 
INT #1," EL CUADRADO DE ABAJO ESTA 
CUBIERTO"¡GOTO 290 
1210 IF HN THEN 1228 ELSE xx=PY<NB> 
+20+16*<(NB MOD 2>+l)+16*<NA MOD 2) 
¡GOTO 1230 

1220 IF I MOD 2=0 THEN XX=161 ELSE 
XX=177 

1230 IF XX + T>400 THEN PRINT ttl," T 
E SALES DE LA PANTALLA"¡GOTO 290 
1240 I=NA¡BR=-1 

1250 IF NA>6 THEN GOSUB 3000 ELSE G 
OSUB 2500 

1260 IF HN THEN PX<I>=P< JI ) ELSE PX 
(I)=PX(NB) 

1270 IF NOT HN THEN OC(NB)=-l 
1280 PY < NA)=XX 
1290 BR=0 

1300 IF NA>6 THEN GOSUB 3000 ELSE G 

OSUB 2500 

1310 OC(DBCNA))=0 

1320 DB(NA)=NB 

1330 GOTO 290 

2000 REM posición de fr* donde esta 
pal* 

2010 M=N 

2020 p=INSTRÍM,Fr*,pa1 *) 

2030 IF p=0 THEN 2120 
2040 IF p=l THEN 2070 
2050 A»=MID*< fr*,p-1,1) 

20 60 IF A* O" " AND A* < > " , " AND A*< 
>" ¡" THEN 2100 

2070 IF p + LEN(pal*)-l=LEN<-fr*> THEN 
2120 

2080 A*=MID*(Fr*,p + LENC pal»),l ) 

2090 IF A* < >" " AND A* < > " ," AND A* < 

>"¡" THEN 2108 ELSE 2120 
2100 M=p + LENC pal*) 

2110 GOTO 2020 

2120 RETURN 

2500 REM cuadrado 

2510 IF BR THEN P=l¡GOTO 2540 

2520 p=<i-1)\2 

2530 IF p=l THEN p=3 

2540 GRAPHICS PEN p 

2550 IF i MOD 2=0 THEN t=16 ELSE t= 

32 

2560 PLOT px<i>-t,py<i)—t 
2570 DRAW px(i)+t-1,py(i)-t 
2580 DRALJ px< i ) + t-1 ,py( i > + t-1 
2590 DRAW px<i)-t,py<i)+t-l 
2600 DRAW px(i)-t,py<i>-t 
2610 MOVE px(i),py<¡) 

2620 FILL p 

2638 RETURN 

3000 REM triangulo 

3810 IF BR THEN P=l¡GOTO 3040 

3020 p=<i-7>\2 

3030 IF p=l THEN p=3 

3040 GRAPHICS PEN p 

3050 IF i MOD 2=0 THEN t=16 ELSE t= 

32 

3060 PLOT px<i ) -t,py<i ) -t 
3070 DRAW p x < i )+t-1,py < ¡)-t 
3080 DRAW px ( i ) , pyC i ) + t-1 
3090 DRAW px<i)-t,py(i)-t 
3100 MOVE px(i),py<¡) 

3110 FILL p 
3120 RETURN 

3500 DATA "AZUL",1,"ROJO",2,"VERDE" 
,3,"NO",8 



no realicen el trabajo duro, M.H. AMS- 
TSAD lo hoce por ti. Todos los listados que incluyan 
este logotipo se encuentran o tu disposición en un cas¬ 
sette mensual, solicitonoslo. 
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PERIFERICOS PARA LOS MODELOS CPC 464, CPC 664 Y CPC 6128 


• ANTA 64 K.3 Ampliación de memoria, buffer de impresora y Ram Disk. 

• SINTETIZADOR DE VOZ 

El programa que controla este sintetizadojr, contiene las reglas básicas de pronunciación en 

m i • . • - ■ I J?_1 _ ___ I_: __ _ I__ A _I 


J programa que controla este sintetizaaor, contiene ias regias Dasicas ue prununuidui 
stellano y permite su funcionamiento, tanto en modo directo, como bajo el control 

ssrr 

Pjermite comunicar el ordenador con impresoras y plott srs con entrada serie 
módems, y otros ordenadores. 

IFERICOS PARA LOS MODELOS PCW 8256 Y P(ÍW 8512 

ii-232 - i- ----- 

porciona al ordenador dos canales de comunicación: 
anal paralelo Centronics) p ara el maneja de ¡mpresorás. 
anal serie (RS -232) para comunicar con otros ordenadores, 
odems, plotters, etc.). 






MHT ingenieros 


'j-k 
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Información sobre: Periféricos Amstrad □ otros □ 
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BYTE: es la bebida preferida por el 
ordenador. 

DIAGRAMA DE FLUJO: dibujo expli¬ 
cativo de un proceso, natural o arti¬ 
ficial, que algunas personas se ven 
obligadas a realizar periódicamen¬ 
te (ver INCONFESABLE). 

DEBUG: en honor de Jacques De- 
bug, el mayor idiota informático de 
la historia, autor del programa más 
largo del mundo capaz de escribir en 
pantalla «mi mamá me mima». El 
nombre enmarca un proceso desti¬ 
nado a la captura de errores en un 
programa, o, en su defecto, a la 
creación de otros nuevos mientras se 
eliminan los antiguos. 

VARIABLE: parte de la memoria de 
un ordenador a la que se le asigna 
un valor que nunca coincide con el 
previsto, alterándose de forma mis¬ 
teriosa (ver RANDOM). 

TERMINAL: configuración Amstrad 
que incorpora, en Tugar de un moni¬ 
tor a color, una ventanilla expedido¬ 
ra de todo tipo de billetes impresos. 
Incluye, completamente gratis, fun¬ 
cionario «cutre», silla odiosa y cafe¬ 
tería con precios abusivos (más IVA). 

SORT: rutina especializada que po¬ 
seen la mayoría de los sistemas ope¬ 
rativos que se precien, pensada pa¬ 
ra colocar los «slips» de los usuarios 
en orden alfabético. 

ROM: barrilito de bebida espirituo¬ 
sa que los Amstrad llevan de fábri¬ 
ca. Dicen que es imprescindible pa¬ 
ra que la máquina funcione (ver CU r 
BA). 

PROCESADOR: juez militar ch 
apodado «Z80», programado para 
aplicar la máxima pena aleatoria¬ 
mente (ver CRIMINAL). 


RESTORE: del preti|o «kc», iepem, 
y «STORE», almacenar, es decir, 
guardar lo que ya está guardado. 
¡Vaya estupidez! (Ver «West Side 
Store», preferiblemente un miérco¬ 
les). 

SILICIO: gobernador romano de 
California del Siglo I D.J. 

SUBRUTINA: trabajo mecánico que 
se realiza a escondidas y con la de¬ 
saprobación de todos (ver HACIEN¬ 
DA). 

MONITOR: especie primate, pe- 
queñita y simpática, que habita en¬ 
cima de las mesas unida por un ca¬ 
ble a la unidad central de un orde¬ 
nador, en lugar de los árboles, co¬ 
mo Dios manda. Originario de Sudó- 
frica, sólo existe en dos colores: ver¬ 
de y multicolor. 

NETWORK: ciudad norteamerica¬ 
na en la cual todos sus habitantes tra¬ 
bajan ¡untos conectados por cables, 
compartiendo calles, coches y edifi¬ 
cios por riguroso orden. 


REGISTRO: subdivisión de un fiche¬ 
ro armada de orden judicial, que 
normalmente acaba revolviendo los 
cajones (con perdón) de la morada 
de algún probo usuario. 

CHAIN: país asiático especializado 
en el encadenamiento de progra¬ 
mas, llamados ciudadanos por las 
malas lenguas. 

FICHERO: palo inmaterial, com¬ 
puesto de células de memoria y aca¬ 
bado en un gancho, que se utiliza en 
las faenas de pesca de unicornios. 

Empleado provisto de tarjeta per¬ 
forada por un reloj. 

Bueno, pues aquí acaba, por aho¬ 
ra, el extracto de lo más florido de 
nuestro diccionario informático. Tie¬ 
ne algunas pequeñas deficiencias: 
está incompleto, no está ordenado 
alfabéticamente y hace referencias a 
palabras que no existen en el texto, 
pero por lo demás es una joya. En 
caso de duda, no lo dude: no nos lla¬ 
me, nosotros tampoco le llamare¬ 
mos. 


í ‘ 


O« 
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La más moderna base de datos 
DELTA, superándose a sí misma, 
“DELTA +", desarrollada para 
CP/M por COMPSOFT con todo 
en español. 

Diseña sus propios ficheros; des¬ 
de un simple fichero de nom¬ 
bres y direcciones hasta su pro¬ 
pio sistema contable. El formato 
standar DIF permite intercam¬ 
biar datos en DEL TA, desde las 
hojas de cálculo CRACKER II, 
etc... y viceversa. Intercambio de 
datos con la mayoría de los tra¬ 
tamientos de texto como NEW- 
WORD para MAILING. 

Incluye un sencillo y funcional 
sistema de impresión de etique¬ 
tas con: hasta 5 columnas de eti¬ 
quetas, 65 caracteres por etique¬ 
tas, 20 líneas con 3 campos cada 
una. 

• PROGRAMABLE Y RELACIO- 
NAL. 

• FICHEROS INDEXADOS. 

• HASTA 90 CAMPOS ó 2.000 
CARACTERES. 

• MULTIPLES SISTEMAS DE BUS¬ 
QUEDA, 8 CLAVES. 

• FICHEROS DE HASTA 8 Mb. 

• 8 GRUPOS DE TRANSACCION 
POR REGISTRO. 


BASE 

DE DATOS 


Programa de tratamiento de tex¬ 
tos mejorando todo lo anterior. 
Manual y programa en español, 
que le enseñarán con facilidad y 
rapidez lo más avanzado en pro¬ 
cesadores de textos. Compatibi¬ 
lidad funcional con WORDSTAR 
incluyendo muchas capacidades 
adicionales. 

Tiene un potente MAIL-MERGE 
con opción de selección de des¬ 
tinatarios por criterios base de 
datos, creación de documentos, 
impresión de etiquetas. Utiliza 
todo el espacio de disco. Ensam¬ 
blaje de textos, sustitución, etc., 
de la forma más fácil: autohace 
copias de seguridad. ¡NUNCA 
PERDERA UN TEXTO! 

• Ñ, ACENTOS, DIERESIS, ETC... 

• PRESENTACION EXACTA EN PAN¬ 
TALLA DEL FUTURO DOCU¬ 
MENTO IMPRESO. 

• INTERCAMBIOS DE FICHEROS 
CON CRACKER. 

• VARIABLES SUSTITUIBLES EN 
IMPRESORA. 

• POTENTE CALCULADORA. 

• COMPROBADOR ORTOGRA¬ 
FICO Y GRAN DICCIONARIO 
(45.000 TERMINOS AMPLIA- 
BLES). 

• POSIBILIDAD DE LECTURA DE 
FICHEROS DE DELTA, CARD 
BOX, SUPERCALC, DBASE II, 
ETC... 


TRATAMIENTO 
DE TEXTOS 


El CRACK de las hojas de cálcu¬ 
lo, la que deja detrás al resto. 
Funciones nunca vistas, forma¬ 
teo de fechas, salvaguardia con¬ 
tinua sobre un fichero. Realiza 
automáticamente copias de se¬ 
guridad. Además de tas tradicio¬ 
nales funciones, CRACKER II 
posee funciones lógicas, estadís¬ 
ticas y de alta matemática. Inter¬ 
cambia datos con NEWWORD, 
bases de datos y la mayoría de las 
hojas de cálculo. 

• CELDAS PROGRAMABLES. 

• FUNCIONES ESPECIALES: 
Fecha, días; desde y hasta la fe¬ 
cha de la semana, del año, lapso 
de tiempo, retraso, beep entra¬ 
da, saludo usuario. 

• SISTEMA DE AYUDA ON-LINE. 

• SUMA CONDICIONAL. 

• TOMAR DECISIONES EN LA 
HOJA. 

• 18 MODOS GRAFICOS DIS¬ 
TINTOS. 

• TRADICIONALES FUNCIONES 
MATEMATICAS Y AMPLIACION, 
FUNCIONES ESTADISTICAS Y 
LOGICAS. 

• GENERA GRAFICOS EN BASE 
A LOS DATOS. 


HOJA 

DE CALCULO 


17.850 pts. 


17.850 pts. 


17.850 pts. 


íTuikSTT 


5IZTC 









Informática 

estas son sus estrellas 




NUCLEUS más que una estrella 
una constelación; tres ESTRELLAS 
en un SUPERPROGRAMA, la so¬ 
lución a cualquier aplicación por 
compleja que sea, NUCLEUS es 
GENERADOR DE PROGRAMAS, 
BASE DE DATOS Y GENERA¬ 
DOR DE INFORMES. 

Toda la información es multi-in- 
tercambiable y de libre acceso 
por cualquiera de los demás 
programas. Así los datos de la 
base los condicionamos y utili¬ 
zamos en el generador de pro¬ 
gramas y los imprimimos a través 
del generador de informes. 

• GENERADOR DE PROGRAMAS 
EN MALLARD BASIC. 

• CREACION DE BASES DE DA¬ 
TOS RELACIONALES. 

• GENERADOR DE INFORMES. 

• DISEÑADOR DE FORMATOS. 

• DISEÑADOR DE PANTALLAS. 

• CODIGO FUENTE DE UBRE 
ACCESO Y UBRE DE ERROR. 

• DISEÑA SU PROPIO SISTEMA. 

• MAILMERGE 


La revolución del pensamiento, 
BRAINSTORM es un programa 
qué piensa con Vd. 

El compañero ideal para el em¬ 
presario, director o cualquier 
persona que tenga que planifi¬ 
carse o tomar decisiones. 
BRAINSTORM es la ayuda nece¬ 
saria para su organización. El 
programa que se ha standariza- 
do en Inglaterra, tan necesario, 
útil y popular como una base de 
datos o un tratamiento de textos. 

• ORGANIZA POR RANGOS. 

• ACCESO DESCENDENTE POR¬ 
MENORIZADO. 

• PLANIFICACION A NIVEL DIA. 

• DECISIONES ALARGO PLAZO. 

• REVISION DE PROBLEMAS. 

• SIMULTANEIZACION DE TA¬ 
REAS. 

• PROCESO TOP/DOWN. 


PUL. su ordenador le comunica: 
La revolución de las comunica¬ 
ciones, de la mano de OFITES 
INFORMATICA, llega a España. 
El nuevo mundo de las comuni¬ 
caciones digitales lo tiene a su 
disposición, las redes de transmi¬ 
sión electrónica digitalizada, con 
su PCW8256o PCW 8512a través 
de un interface RS 232-C con 
otros ordenadores, redes de trans¬ 
misión de datos, etc..., Vd. podrá 
enviar o recibir ficheros de texto 
o de datos, ASCII, etc..., creados 
por NEWWORD y otros... 

• TRANSICIONES DIRECTAS EN 
RED. 

• COMPATIBILIDAD CON NEW¬ 
WORD. 

• POSIBILIDADES DE TRANSMI¬ 
SIONES VIA MODEM, RED 
TELEFONICA. 

• COMUNICACION INSTANTA¬ 
NEA. 


GENERADOR 
DE PROGRAMAS 

26.780 pts. 


ORGANIZADOR 
DE IDEAS 


17.850 pts. 


COMUNICACIONES 


17.850 pts. 










HISOFT-C 

Daniel Palomo Ortega 


, . ^ctrad estábamos 

Todos loS d 'i 5 queaP a ^ eCÍe5e ^Aenodor^Por fin 
deseando que ap fíuestro ordenado ^ 

ampliado-de W deseos cumplW®*¿ HISO FT. 
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1 1 lenguaje C se creó en 
1972 como una herramienta de programa¬ 
ción. El creador del C es Dennis Ritchie, de los 
laboratorios Bell. Este lenguaje surgió cuan¬ 
do Ritchie trabajaba, ¡unto con Ken Thomp¬ 
son, en el diseño del sistema operativo UNIX. 

Este lenguaje no surgió por arte de magia, 
como es de suponer, sino que derivó del len¬ 
guaje B de Thompson, que a su vez... Pero eso 
es otra historia. 

Fue creado como herramienta de progra¬ 
madores, por tanto es un lenguaje útil, ya que 
es potente, flexible y rápido. 

El C es un lenguaje muy extendido, existen 
compiladores para multitud de sistemas aparte 
del UNIX, tan importantes como: Cray I, IBM, 
Sperry, Apple, Commodore, Amstrad, etc. 

El C se utiliza en aplicaciones muy variadas, 
por ejemplo, el sistema operativo UNIX está 
escrito en C. Muchos compiladores, además 
de multitud de juegos, se han hecho con este 
lenguaje e incluso se utilizó en El retorno del 
Jeai para la animación de las secuencias de 
la película. Paquetes de software, programas 
de gestión y un largo etcétera han sido reali¬ 
zados en C. 

El C es un lenguaje estructurado que pro¬ 
duce programas compactos, eficientes, trans¬ 
portables, y de modificación muy sencilla. 

¿Qué es lo que da esta potencia? C es un 
lenguaje moderno que trata las tareas por se¬ 
parado, es decir, es un lenguaje modular, to¬ 
do esto se realiza gracias a la flexibilidad de 
sus expresiones. La filosofía de diseño de C se 
basa en el adecuado uso de las funciones, és¬ 
tas son parecidas a las subrutinas, procedu- 
res y funciones de otros lenguajes, el C traba¬ 
ja siempre con funciones como palabras cla¬ 
ve, PRINTFÍ), SCANFO, FSEEKQ, son fun¬ 
ciones predefinidas, y nosotros podemos crear 


nuestra biblioteca muy fácilmente e incluir fun¬ 
ciones propias en las ya creadas. Por todo es¬ 
to, muchas de las funciones a las que estamos 
acostumbrados no están implementadas en C. 

La implementación de HISOFT es buena y 
además tiene el detalle de suministrar dos com¬ 
piladores en el mismo disco, uno que funcio¬ 
na bajo AMSDOS y otro bajo CPM. Pasemos 
a analizarlos. 


Crear un programa fuente 


Lo primero que tenemos que hacer para 
crear un programa C es almacenarlo en un fi¬ 
chero de texto, esto lo podemos realizar con 
los editores que se suministran con cada com¬ 
pilador. 

El perteneciente a AMSDOS es el típico de 
Hisoft con órdenes parecidas a las de anterio¬ 
res productos de esta marca. 

El de CP/M es, el ya conocido por sus usua¬ 
rios, ED80 compatible con WORDSTAR. 

Podemos utilizar cualquier editor al que es¬ 
temos más acostumbrados. 

Veamos cómo funcionan. 


El editor de líneas 


El editor que va implantado en el compila¬ 
dor de AMSDOS es muy parecido al original 
de Amstrad, teniendo habilitado el cursor 
de copia y todas las demás funciones. 

Los números de línea son una referencia pa¬ 
ra el programador y el compilaor sólo los tie¬ 
ne en cuenta en el tratamiento de errores, para 
referenciarnos más rápidamente a la línea en 
cuestión. Si en este momento se pulsa la tecla 
[E] se editará la línea que produjo el error, 
cualquier otra tecla retorna al modo directo. 
Las llaves son imprescindibles en C, con ellas 
se indica el principio ([)y el final (j) de funcio¬ 
nes, condiciones, bucles, etc. En el CPC6128 
se pueden obtener con [CTRL] más los parén¬ 
tesis. 
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ordTúñeas 


Renumera el programa 

siendo n el primer 
número de línea e i el 
incremento. 

n c «: Busca una cadena c en 

los números de línea 
comprendidos entre n y 
m, y la sustituye por la 
cadena c! 

Imprime en pantalla los 
valores actuales de n, 
m, c y c,' así como el 
delimitador actual. 

,m, 

m: Graba un programa en 

disco o cinta, n es la 
primera línea que se 
quiere grabar, m la 
última y nom el nombre 
del fichero con su 
extensión. 

n,m, i 

9m: Carga un programa de 

disco o cinta. 

n; Edita la línea 

especificada por n. 


¡stra disposición. 


El editor de CP/M + (ED80) 


Este editor, compatible con WORDSTAR, es 
muy potente y no tiene nada que envidiar a 
los procesadores comerciales. 

Todos los comandos se consiguen con [CTRL] 
y una o varias letras. 

A continuación damos una lista de ellos cla¬ 
sificados por tareas: 


Movimiento del cursor 

S Carácter 


izq. 

D Carácter der. 

H Carácter 


izq.(bor) 


A Palabra 


izq. 

F palabra der. 

0 S Tabula 


izq. 

Ó D Tabula der. 

Q S Principio 


línea 

Q D Final línea 

É Línea 


superior 

X Línea inferior 

Ó E Principio 


texto 

Ó X final de texto 

R Página 


posterior 

C Página anterior 

Borrado 

Y 

Borra línea 

[DEL] Borra 


último carácter 

G Borra este carácter 

Ó T Borra 


palbr. izq. 

t Borra palbr. der. 

Q [DEL] Borra 


principio línea 

Q Y Borra final de 


línea 

i( B Marca 


princ. bloque 

K K Marca fin bloque 

K V Mueve 


bloque 

K C Copia bloque 

K Y Borra 


bloque 

K R Lee bloque de 


disco 

K W Graba 


bloque disco 


Movimiento rápido del cursor 

Ó G Ir a línea 


Q B Ir a princ. 


de bloque 

Q K Ir a fin de 


bloque 

K 0 Recuerda 


posición 

Q 0 Ir a posición 

Búsqueda y sustitución 

Q F Busca 


primero 

L Busca siguiente 

Ó L Sustituye y 


busca 

Ó A Sustituye todo 

k 


Q Abandona y 


sale 

Ó Q Salir sin Backup 

K X Salir con 


Backup 





PÜJ 

ÍÉfiAS 

Varios 

K F Directorio 

K J Borra fichero de 


disco 

P Control 


meta-key 

J Ayuda 


Un editor muy completo, como se puede 
ver, y con posibilidades de adaptarlo a nues¬ 
tro gusto, permitiéndonos remodelar la pan¬ 
talla de acuerdo al monitor utilizado, ya sea 
de la serie CPC o PCW. 


Un poco de... C 


El C es el lenguaje que se maneja muy bien. 
En eso de los números el rango es el mismo 
que el de LOCOMOTIVE BASIC, pero hay al¬ 
gunas aclaraciones que hacer; los números oc¬ 
íales se representan añadiendo un 0 a la iz¬ 
quierda si tiene significado, por lo tanto, no 
debemos utilizar esta notación, ya que sería 
entendido erróneamente por el compilador. 
Los números hexadecimales se representan 
con un cero seguido por una X y a continua¬ 
ción el número hexadecimal (OX4F3B). 

Los caracteres simples pueden ser maneja¬ 
dos encerrándolos entre comillas simples o do¬ 
bles 

Tenemos una serie de caracteres, llamados 
en C caracteres de escape, que son utilizados 
para imprimir retorno de carro, salto de pá¬ 
gina, comillas, etc. Estos se representan pre¬ 
cedidos de la barra atrás (\) y son los siguien¬ 
tes: 

Es la animación d Xnnueya , ínea 

\ b espacio atrás 
\f avance de página 
\t fabulador horizontal 
\ r retorno de carro 
comillas 

\ \ barra atrás 
\" comillas simples 

También podemos utilizarlos escribiendo su 
valor ASCII en octal precedido por la barra 
atrás, esto sirve para imprimir todos los carac¬ 
teres gráficos de Amstrad por ejemplo \ 32 
sería EOF; \377 imprimiría el último carác¬ 
ter del juego (las pesas), el valor a continua¬ 
ción de la barra atrás únicamente se puede 
poner en las bases disponibles. 

Las cadenas se almacenan en una matriz 
conteniendo el valor ASCII de cada compo¬ 
nente de la misma, cada carácter ocupa un 
byte. 
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Los nombres e identificadores pueden tener 
la longitud que deseamos, para hacer más cla¬ 
ro lo que queremos representar con ellos, pe¬ 
ro sólo tendrán significado para el compila¬ 
dor, los 8 primeros caracteres del nombre, se 
pueden utilizar todas las letras, números y el 
guión abajo, (A-Z, a-z, 0-9, .)• 

Por convenio se dejan las palabras mayús¬ 
culas para los nombres que utilicemos en los 
comandos del preprocesado, se escribe el pro¬ 
grama, siempre que sea posible, en minúscu¬ 
las. 


Palabras reservadas 


C es mucho menos extenso, en lo que a pa¬ 
labras reservadas se refiere, ya que al estar 
compuesto por funciones es más difícil, por no 
decir imposible, utilizar un nombre de una fun¬ 
ción como nombre de variable, ya que los pa¬ 
réntesis forman parte del nombre de la fun¬ 
ción y no son caracteres permitidos para un 
nombre de variable. 

Pero sí tenemos algunas palabras con las 
que el compilador se haría un lío si las utilizá¬ 
ramos como nombre de variable. 

Estas palabras son las siguientes: 


PALABRAS RESERVADAS 

Auto 

break 

char 

continué 

double 

else 

float 

for 

inline 

int 

return 

short 

struct 

switch 

unsigned 

while 

case 

cast 

default 

do 

entry 

extern 

goto 

if 

long 

register 

sizeof 

static 

typedef 

unión 


Programas en C 


Los programas en C se consiguen gracias a 
una colección de funciones creadas por noso¬ 
tros, las implementos o las de librería, que ha¬ 
cen que todo eso funcione. ¿Cómo consigue 
saber el compilador por donde ha de empe¬ 
zar a ejecutar el programa? Esto lo sabe por¬ 
que nosotros hemos de llamar, obligatoria¬ 
mente, Main () a la función principal, esta es 
la traducción de Main, de nuestro programa, 
así sabrá por dónde empezar, sencillo, ¿no? 

A continuación del nombre de la función se 
pueden poner los parámetros de la misma, en¬ 
cerrada entre paréntesis vacíos a continuación 
del nombre. La función comienza en el punto 


en que encuentra una llave de apertura ((), to¬ 
do lo que existe entre el nombre y esta llave 
es considerado por el compilador como decla¬ 
ración de variables. La sintaxis de una función 
es la siguiente: 

Nombre de función (lista de 
parámetros) 

Declaración de variable 

Asignación de variable 
y llamadas a funciones 

La llave de cierre finaliza la función. Los co¬ 
mentarios pueden ser incluidos entre barras y 
asteriscos (/* comentario*/) 


Tablas de operadores 


A continuación se da la tabla de operado¬ 
res, ordenados, de acuerdo con su prioridad 
de mayor a menor: 


ello tenemos algunos tipos ya implementados 
y éstos son: 

CHAR para declarar variables y matrices en 
cadena 

INT para declarar enteros con signo 
LINSIGNED para declarar enteros sin signo 
FLOAT para declarar enteros variables en 
punto flotante (reales) 

SHORT para declarar enteros cortos (1 byte) 
LONG para declarar enteros largos (2 bytes) 
TYPEDEL para definir nuestros propios tipos 
de datos 

* para declarar punteros 
Las matrices en C son muy parecidas a las 
de BASIC. Esto se hace con el identificador de 
tipo correspondiente, seguido del nombre de 
la variable y los subíndices entre corchetes. 

CHAR nombre [10] [30] 

Si no se usa ningún subíndice, se utiliza el 
espacio requerido por los elementos de la ma¬ 
triz. 


Operador Prioridad 



cast 


14 


n 


Paréntesis 
Llamada a una 
función. 

Subíndice. 

Suministro del 
valor de un 
incremento de una 
estructura. 

Puntero a un 
miembro de una 
estructura. 
Operador de 
indirección 
Dirección de var. 
Signo menos. 

NOT negación 
lógica. 

Operador de 
incremento. 
Operador 
decremento. 
Suministra el 
número de bytes 
ocupados por una 
variable. 

Fuerza a que el 
tipo sea el 
especificado. 

XA. lUlrvIimnnn 


< < 


13 

12 

12 

11 


División. 

Halla el resto de 
una división. 
Suma. 

Resta. 

Operador de 
shift+ a la 
derecha. 
Operador de 
shift + a la 
izquierda. 

Operadores de 
relación. 


Operador de 
igualdad. 
Operador de no 
igualdad. 

Y lógico bit a bit. 
XOR lógico bit a 
bit. 

O lógico bit a bit. 

Y lógico. 

O lógico. 

Operador 

condicional. 


Tipos de datos 


En C hemos de declarar todas las variables 
que vayamos a utilizar en el programa, tal co¬ 
mo ocurre en otros lenguajes compilados; para 


Las estructuras es algo que posee C y que 
da gran flexibilidad a la hora de hacer pro¬ 
gramas, ya que nos permiten referirnos a cual¬ 
quiera de los elementos de la estructura muy 
fácilmente, consiguiendo crear un base de da¬ 
tos, por ejemplo, sin problemas, ya que en la 
estructura se puede incluir cualquier tipo de 
datos. 
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Los modos de almacenamiento determinan 
qué variable conoce cada función y hasta 
cuándo deben permanecer en memoria estas 
variables. 

Los tipos de almacenamiento son: 

AUTO: Es el modo asumido por defecto, es¬ 
tas variables tienen alcance local, es decir, sólo 
las conoce la función en la cual se declaran 
estas variables, desapareciendo al finalizar la 
misma. 

EXTERN: Cuando una variable se declara 
fuera del cuerpo de una función se dice que 
es externa y estas variables pueden ser utili¬ 
zadas por todas las funciones que declaren en 
su interior como «extern», incluso estando es¬ 
ta variable en otro módulo que queramos 
complilar ¡unto con el que utiliza esa variable. 

Si no se declara como «extern» se consi¬ 
dera una variable nueva y asumirá el modo 
por defecto (auto). 

STATIC: Es del mismo alcance que auto, lo¬ 
cal, pero permanece en memoria durante to¬ 
da la ejecución del programa. 

REGISTER: Estas variables son de modo 
automático, pero el compilador intenterá que 
estén situadas en los registros de la CPU en 
vez de estar en la memoria RAM. Es más una 
súplica que una orden. 


El preprocesador 


El prepocesador es una parte del compila¬ 
dor C, se encarga de realizar algunas tareas 
«domésticas», tales como definir constantes y 
macros, incluir ficheros y librerías etc. Los co¬ 
mandos son los siguientes: 

#define: Define una constante, una macro 
instrucción, o cualquiera de las palabras re¬ 
servadas pudiéndose utilizar el nombre im¬ 
puesto por nosotros en su lugar. Por ejemplo: 
#define EOF —1 

#error: Este comando retira de memoria el 
texto de los códigos quedando como única di¬ 
ferencia los números de error. Esto es útil cuan¬ 
do tenemos que compilar programas muy lar¬ 
gos ya que el texto de errores ocupa 2K 


#data Se sitúa al principio de la zona de da¬ 
tos, la dirección de memoria debe ir en hexa- 
decimal, sólo utilizable en CPM. 

#list: Activa(+) o desactiva(—) el listado del 
programa. 

#d¡rect: Activa o desactiva la ejecución di¬ 
recta de comandos, parecido a la ejecución 
directa en basic. 

#indude: Incluye el fichero escrito a conti¬ 
nuación ya sea para compilar ¡untos los mó¬ 
dulos o para incluir funciones de biblioteca. 
Tiene dos modos posibles: 

1) #¡nclude «Nomfich» 

#include nomfich 

incluye todo el fichero compilador ¡unto con 
el actual. 

2) #indude ?nomfich? 

incluye sólo funciones utilizadas por el progra¬ 
ma que da la orden #¡ndude. 
//transíate Graba en disco el código obje¬ 
to con el nombre especificado por nosotros en 
CP/M sólo sirve para cambiar el nombre del 
fichero objeto. 


Las bibliotecas de programa 


El compilador de C incluye varias bibliote¬ 
cas, con las que podremos cubrir casi todas 
nuestras necesidades. Estas bibliotecas contie¬ 
nen todas las funciones típicas de C, las ruti¬ 
nas de manejo del disco, etc. Tenemos dos bi¬ 
bliotecas con casi todas las palabras reserva¬ 
das de Basic pero al estilo C, con ellas se pue¬ 
den aprovechar todas las prestaciones del AM- 
TRAD tanto gráficas como de sonido e inte¬ 
rrupciones. 

En CP/M encontramos todas las funciones 
para manejar a nuestro antojo, tanto el disco 
como pantalla o teclado. Los usuarios de 
CP/M+ podrán disfrutar de los gráficos, ya 
que incluye una biblioteca para la extensión 
gráfica GSX. 

Las bibliotecas se dividen en dos partes: 

El encabezamiento que es donde se definen 
todas las constantes que se utilizan en la co¬ 
rrespondiente biblioteca. 



Y la biblioteca en sí, que es donde se encuen¬ 
tran todas las funciones utilizables y algunas 
para el manejo interno. 

Hay que agradecer a Hisoft que sea tan ex¬ 
plicativo en estas bibliotecas, dando siempre 
la oportunidad de aprender algo más, ya que 
éstas se encuentran llenas de comentarios y 
nombres de variables con un significado muy 
claro, que hacen muy fácil su lectura y com¬ 
prensión. 

En las figuras 1 y 2 se encuentran las listas 
de funciones de las bibliotecas de AMSDOS y 
CP/M, stdio.h es la misma para los compila¬ 
dores. 


ít abs(n) 

't s 9 n H , . 

ít poek (adress) 

■oíd poke (adress,valué) 
n out(data, port) 
nt ¡np(port) 

ont atoi(s) . , i 

void qsort(list, nu-,Ítems, size, cmp-tunc) 

char *strcat(base, add) 

char *strnca*(base,add,number) 

int strcmp(s,t) 

¡nt strncmp(sl, s2, n) 
char *strcpy(sl, s2, n) 
char *strcmp(dest, source) 
unsigned strlen(s) 
char * strchr(string, ch) 
int strspn(sl, s2) 
int strcspn(sl, s2) 
char *strchr(s, c) 
char * strrchr(s, c) 
int ¡spunct(c) 

¡nt isalnum(c) 
it isxdigit(c) 
it isascii(c) 
it iscntrl(c) 
it isprint(c) 
ít isgraph(c) 
nt toascii(c) 

;har *fgets(s, n, fp) 

:har ’gets(s) 

/oid fputs(s, fp) 

:har *calloc(n, size) 
void free(block) 
char * sbrk(n) 
exit(n) 

-exit(n) 
void srand(n) 
void long-multiply(c, a, b) 
void long-init(a, ni, no) 
void long-set(a, n, d) 

>¡d long-copy(c, a) 
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BASIC! .LIB SONIDOS 


$etup-sound() 
play(control-string, status) 
S-arm-event(channel-b¡t,seb-add) 

S-queue(sp) 

sound-check(chanbit) 

S-release(channel-bits) 
S-ampl-envelope(number, envelope) 
S-tone-envelope(number, envelope) 

S-hold() 

S-CONTINUEO 

after(delay-¡n-ticks, control-block, 
function-name) 

every(per¡od-in-ticks, control-block, 
function-name) _ 

add-ticker (ctrl-block, initial-time-delay, 
recharge-delai, function-name 
init-event (event-block, function-name) 
border(colour) 
cass-speed (speed) 
catalog() 
ds() 

event-enable() 
event-disable() 
flash-speed(time1, time2) 
ink(ink-to-setup, colourl, colour2) 
int inkey(key-number) 
char *instr(main-string, sub-string) 
itob(n, string, precisión) 
joy(joystick-number) 
int key-function(traslated-key-number, 

expansion-string) 

K-arm-breaks(event-routine, ROM-select) 
K-disarm-break() 
read-file(filename, adress) 
char * strlower(string) 
char * strupper(string) 
time(array) 


BASIC2LIB 


draw(control-string) 

T-set-graphic(on) 

T-swap-streams(stream-number, 

another-stream-number) 
T-get-cursor(px-column, py-row, 
p-roll-count) 

G-ask-cursor(pdx, pdy) 

G-set-origin(x,y) 

G-win-width(xl,x2) 

G-win-height(yl,y2) 

G-dear-window() 

G-set-pen(ink) 

G-set-paper(ink) 

G-wr-char(c) 
G-move-absolute(x,y) 
G-move-relative(dx, dy) 
G-plot-absolute(x, y) 
int G-*est-absolute(x, y) 
int G-test-relative(dx, dy) 
G-lie-absolute(x, y) 
G-line-relative(dx, dy) 



CPM.LIB 


void cpm-cmd-line(aargc, aargv, buffer) 
int parse-args(s, argv, dest) 
cpm-dir(drive, user, afn, sp, width) 
void fcb-to-name(filename, fcb) 
cpm3-bios(func, a-param, bc-param, 
de-param, hl-param) 
int cpm-punout(c) 
int cpm-vers¡on() 
int unlink(filename) 
renamefoldname, newname) 
int cpm-user(new-user) 
void cpm-bdos(func, param) 
void fseek(stream, offset, mode) 
read-file(filename, address) 
char ’strupper(string) 
char * strlower(string) 
write-file(filename, address, length) 


GSX.LIB gráficos de CP/M 


v-dswk handle) 
v-updwk(handle) 
v-pline(handle,count,pxyarray) 
v-pmarker(handle,count, pxyarray) 
v-gtext(handle,x, y, string) 
v-bar(handle,pxyarray) 
vst-height(handle,heigth,char-width, 
char-height,cell-width,cell-height) 
int vst-rotation(handle,angle) 


int vsl-type(handle,style) 

int vsm-type(handle,symbol) 

int vsf-color(handle, color-index) 

int vsm-locator(handle,x,y,xout,yout,term) 

vsin-mode(handle,dev-type,mode) 

v-exit-cur(handle) 

v-enter-cur(handle) 

v-curright(handle) 

v-curhome(handle) 

v-eeol(handle) 

v-rvon(handle) 

v-dspcur(handle,x,y) 

v-rmcur(handle) 

g«0 


Conclusiones 


Este es un compilador fácil de usar en sus 
dos versiones, trae en sus bibliotecas multitud 
de funciones con las que podremos hacer ca¬ 
si todo, lo que no podamos hacer sólo tene¬ 
mos que ¡mplementarlo. 

Se probó su rapidez con dos programas, 1 
y 2, demostrando esacasa diferencia entre el 
compilador de AMSDOS y el de CP/M. Las 
pruebas efectuadas dieron los siguientes re¬ 
sultados: 


Compilación 

3 segundos 

Bucle vacío 

2 segundos en 
1.000 vueltas 

Bucle simple 

6 segundos en 500 
vueltas 

Bucle complejo 

49 segundos en 500 
vueltas 

Bucle texto 

18 segundos en 100 
vueltas 


Podéis probar a ejecutar los mismos bucles 
en basic, midiendo los tiempos tardados, y ha¬ 
ciendo las oportunas comparaciones. Pero por 
si era poco miramos también cómo maneja C 
los ficheros. El programa 2 leía un fichero de 
texto, concretamente stdio.h, con más de 
2.000 caracteres en tan sólo 4 seg., el proce¬ 
sador de textos con que se ha escrito este ar¬ 
tículo, tarda el mismo tiempo en realizar esa 
operación, a pesar de estar escrito en puro en¬ 
samblador . 

Los manuales son escuetos pero bastante 
completos, tratando cada punto lo justo, sin 
pasarse en ningún sentido. La única pega en¬ 
contrada fue la de estar escritos en inglés, a 
ver si tenemos pronto la versión española. 


EQUIPO: CPC 464-664-6128 PCW 
8256-8512 

SISTEMA OPERATIVO: AMSDOS Y CP/M 
DISTRIBUIDOR: 

OFITES INFORMATICA 
PRECIO: 15.000 PTAS. 
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6 meses ES 

I m "> i 


Gratis 


de AMSIRAD CASSETTE 


Suscríbete ahora a Microhobby Amstrad, o realiza tu 
renovación, y recibirás, totalmente gratis, un regalo de 
excepción: una suscripción a Amstrad Cassette por 

seis meses. 

Cada cinta contiene los programas publicados por 
Microhobby Amstrad durante un mes. 

Todos los programas de nuestras cintas se 
encuentran desprotegidos, con el objeto de 
facilitar su copia en disco y la revisión de los 

listados. 
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En cada cinta encontrarás: 

— Apasionantes juegos llenos de acción y dinamismo. 

— Utilidades con las que sacar mayor partido a tu ordenador. 

— Rutinas en código máquina, para que las utilices en tus propios programas. 

— Y pequeños trucos de programación, paro que, poco a poco, te conviertas en un experto. 
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Ofites Informática 

Presenta: C* W 

el lápiz al que gusta decir i J i¿ 
mientras nuestros competidores dicen no 

UNICO PARA AMSTRAD, CON PRECISION PIXEL 


FUNCIONES 

ESP 

dk’tronics 

OTROS 

UNICO MENU DE PANTALLA 

SI 

NO 


ARRASTRE OBJETOS PANTALLA 

SI 

NO 


TRASLADO OBJETOS PANTALLA 

SI 

NO 


TRASLADO DE CURSOR 

SI 

NO 


CAJAS ELASTICAS 

SI 

SI 


LINEA ELASTICA 

SI 

SI 


TRIANGULO ELASTICO 

SI 

NO 


ELIPSE ELASTICO 

SI 

NO 


DIAMANTE ELASTICO 

SI 

NO 


POLIGONO ELASTICO 

SI 

NO 


HEXAGONO ELASTICO 

SI 

NO 


OCTOGONO ELASTICO 

SI 

NO 

A 

CUBO ELASTICO 

SI 

NO 


PIRAMIDE ELASTICA 

SI 

NO 


CIRCUNFERENCIAS 

SI 

SI 


CIRCULOS RELLENOS 

SI 

NO 


CAJAS RELLENAS 

SI 

NO 


ELIPSES RELLENAS 

SI 

NO 

~8 — 

CUNAS 

SI 

NO 

S. - ! 

SIMULADOR DE CORTES 

SI 

NO 

— — 

DISEÑO DE ZOOM 

SI 

SI 


IMAGEN ESPEJO E INVERTIDA 

SI 

NO 

5 

FONDO DE REFERENCIA 

SI 

NO 

— o — 

REJILLA DE FONDO 

SI 

NO 

-g- 

OPCION DISPLAY X. Y 

SI 

NO 

“ 8 _ 

RELLENADO CON COLOR 

SI 

SI 

2¿ 

LAVADO DE COLOR 

SI 

NO 

S. 

VOLCADO PANTALLA RESIDENTE 

SI 

NO 

— ex — 
c 

DIBUJO DE BORDES EN 3 D 

SI 

NO 

— u - 

O 

TEXTO 

SI 

SI 

~u ~ 

9 TAMAÑOS DE BROCHA 

SI 

NO 


18 TOBERAS MOSTRADORAS 

SI 

NO 


4 MEZCLAS BASICAS 

SI 

NO 


VARIADOR DE MEZCLAS 

SI 

NO 


SOMBREADO DE MEZCLAS XOR 

SI 

NO 


FICHERO ICONOS RESIDENTES 

SI 

NO 


FICHERO RELLENOS RESIDENTES 

SI 

NO 


26 COLORES DE PAPEL 

SI 

NO 


PALETA DE 15 TONOS DE COLOR 

SI 

NO 


POSICIONAMIENTO DE PUNTO 

SI 

SI 


RAYOS DESDE UN PUNTO FUO 

SI 

NO 


DIBUJO REREJADO (ESPEJO) 

SI 

NO 


FUNCION HOME 

SI 

NO 


CONTROL DESDE TECLADO 

SI 

SI 


CONTROL CON JOYSTICK 

SI 

NO 


DISPONIBLES MODOS 1 Y 2 

SI 

? 







ESTOS SON 
ALGUNOS EJEMPLOS 
DE LOS GRAFICOS QUE VD. 
PODRA REALIZAR CON NUESTRO 
LAPIZ OPTICO 





, «Jl 

n 

Hy¡i§! 

t5 . 

F — — —-— -■— ~ - : - 1 



1 / \ 1 




DEBIDO A LA FALTA DE ESPACIO NO PODEMOS LISTAR LAS OTRAS \ 

40 FUNCIONES MAS OUE NUESTRO LAPIZ ES CAPAZ DE HACER 


ÍMSPÍMBLE PARA; 


M VENIA EN LOS MEJORES COMERCIOS 
DE INFORMATICA 


Si Vd. tiene alguna dificultad para obtener el lápiz óptico, 

CPC 464 CASSETTE 4.900 Pías, puede dirigirse a: 

CPC 464-664 DISCO 6.900 Pías. .. ... „ .. „ 

CPC 6128 DISCO . 6.900 PtíL'j. f C -— I Tels. 455544 - 455533 


CONDICIONES: 


JUIDORES 



■ Avda. Isabel II, 16 -8* 

I TeLs. 455544 - 455533 
■ Télex .36698 
•I 20011 SAN SEBASTIAN 















































































U25?*¿ 


U25t*¿. 




State» 


^¡ESTRATEGIA 




jnidodeH 

s \o R 7 

' ^ ordenodor- 

fentará neutro"* a [ ibre 

sV-o d lSe de "• 


Oferto espeóo' 
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ENVIE HOV MISMO ESTE CUPON AL APARTADO 232 DE ALCOBENDAS (Madrid) 


□ Deseo recibir en mi domicilio tres ejemplares de Juegos & Estrategia al precio especial de 2.255 ptas., lo que me supone adquirir tres y pagar sólo dos. Marco 
los tres ejemplares que deseo con una cruz. 

□ Deseo recibir un solo ejemplar de Juegos & Estrategia al precio de 1.125 ptas. Marco con una cruz el ejemplar que deseo recibir. 


Spectrum 

N.° 1 □ Arnbem 
N.° 2 □ Ratas del Desierto 
N.° 3 □ OTAN Alerta 
War Zone 

Especial 1 Ü Elecciones Generales 

N.° 4 □ Su mejor hora (La batalla de Inglaterra) 


Amstrad Commodore 

O Arnhem 

□ Ratas del Desierto 

□ Teatro de Europa □ Teatro de Europa 

War Zone 

□ La batalla de Inglaterra □ Lo batalla de Inglaterra 


Fecha de 

NOMBRE._.-. nacimiento 

DIRECCION. 

LOCALIDAD ...-. PROVINCIA ... 

C. POSTAL. TELEFONO .PROFESION ..... 


Forma de pago: 

□ Talón bancario a nombre de Hobby Press, S.A. □ Giro Postal a nombre de Hobby Press, S. A., n.° de giro.. 

□ Tarjeta de crédito: Visan. 0 ....... Master Charge n.°.... American Express n.° 

Fecha de caducidad de la tarjeta .-.. Fecha y firma . 




























El CENTRO 



DELAS NOVEDADES 


Le presentamos las más recientes novedades. Desde los ordenadores 

PC totalmente compatibles por menos de 90.000 ptas., lo último en Spectrum. 

Convertidor TV para tu Amstrad, hasta las cadenas de sonido con un precio inferior a 30.000 
ptas., que van a revolucionar el mercado. ¡VA A SER UN ESCÁNDALO! 


INVES PC 640 X 


INVES 100 HF 


Venga a Sinclair Store. 


Los primeros en tener lo último. 


OFERTAS 

Convertidor TV Amstrad. 

Ampliación memoria Amstrad 464, 64 K 
Ampliación memoria Amstrad 464, 256 K 

Disco de silicio 256 K. 

Lápiz óptico Amstrad . 

Sintetizador de voz. 

Fundas teclado, desde . 

Opus Discovery . 

Software Amstrad, Commodore, desde 
Joystick Quick Shot II + Interface Kempston 


ABRIMOS SABADOS TARD^ 




✓/ 

SOMOS PROFESIONALES 


Pesetas 

Lanzamiento 

8.500 

21.500 

20.600 

5.600 

9.450 

800 

44.000 

500 

3.000 


BRAVO MURILLO, 2 DIEGO DE LEON. 25 

(Glorieta de Quevedo) (Esq. Núñez de Balboa) 

Tel. 446 62 31 28015 MADRID Tel. 261 88 01 - 28006 MADRID 

Aparcamiento GRATUITO Magallanes, 1 Aparcamiento GRATUITO Núñez de Balboa, 114 


AV. FELIPE II. 12 
(Metro Goya) 

Tel. 431 32 33 • 28009 MADRID 
Aparcamiento GRATUITO Av. Felipe II 








































